Решение задачи
{ Найти сумму. }
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.