В чём ошибка этой программы?
Она должна запрашивать ввод 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.