В чём ошибка этой программы? Она должна запрашивать ввод 2 чисед, а потом вызывать функцию с помомщью которой выведет сумму и разность числа var a, b, c:string; procedure summ (plus:string; minus:string); Begin plus:=a+b; minus:=a+b; writeln ('', plus,''); writeln ('', minus,''); end; Begin Writeln ('chislo'); Readln (b); Readln (b); summ (Writeln ('', plus,'',''minus'') end.

В этой программе сразу множество ошибок. Начнем по порядку.

var a, b, c:string; / /два числа, значит тип должен быть числовым

procedure summ (plus:string; minus:string); / /просится функция, а написана процедура, еще и аргументы зачем-то / /неверно указаны (имена и тип)

Begin plus:=a+b; minus:=a+b; / /мало того, что переменные

writeln ('', plus,''); writeln ('', minus,''); / /неправильно записан вывод чисел

end;

Begin Writeln ('chislo');

Readln (b);

Readln (b); / /считывается то же самое число

summ (Writeln ('', plus,'',''minus'') / /неверно записан вывод

end.

Исправленная программа

var a, b:integer;

function f (a:integer; b:integer) : integer;

Begin

writeLn (a+b);

writeLn (a-b);

end;

begin

read (a, b);

f (a, b);

end.