Решение задачи
{ Найти сумму. }
uses crt;
var a,b,s : integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
s:=a+b;
write('сумма s=',s);
readln;
end.
{ Найти сумму. }
uses crt;
var a,b,s : integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
s:=a+b;
write('сумма s=',s);
readln;
end.

