Question

Переделайте программу так, чтобы найти сумму s1 и s2

Answer 1

Нужно добавить:
в разделе var - a,b,sum : longint; error : integer;
перед close(td) - val(s1,a,error); val(s2,b,error); sum := a+b; writeln(sum);
*Справка: процедура Val(S, x, kod) преобразует строку символов S в число x. Здесь S – строковое выражение, x – числовая переменная, kod - код ошибки.

Answer 2

Проще никак?

Answer 3

я не вижу пути проще