С клавиатуры вводится строка, содержащая пример ** суммирование 2=х чисел. Подсчитать...

Question

С клавиатуры вводится строка, содержащая пример на суммирование 2=х чисел.
Подсчитать сумму и вывести пример полностью.
Например, 5+9=14.

Answer 1

Var s,s1:string; a,b,c,p:integer;
begin
writeln('Введите пример:');
readln(s);
p:=pos('+',s);
val(copy(s,1,p-1),a,c);
val(copy(s,p+1,length(s)-p),b,c);
writeln(s,' = ',a+b);
end.

Пример:
Введите пример:
25+194
25+194 = 219