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