Program Integer7;
var a,r,x,y,l:integer;
begin
Writeln('Введите число a');
readln(a);
x:=a div 10;
y:=a mod 10;
r:=x+y;
l:=x*y;
Writeln ('Summa=',r);
Writeln ('Proizvedenie=',l);
end.