var a,b,S:integer; begin writeln('Найдите суммы чисел'); Readln(a,b); S:=a+b; writeln('Summa S=', s); end.