program z;
var a, b, c, d, f:integer;
begin
writeln('Введите любое 2-ух значное число ');
readln(a);
b:=a div 10;
d:=a mod 10;
c:=b+d;
f:=b*d;
writeln('Сумма цифр равна = ' ,с);
writeln('Произведение цифр равно = ',f);
end.
program z;
var a, b, c, d, f:integer;
begin
writeln('Введите любое 2-ух значное число ');
readln(a);
b:=a div 10;
d:=a mod 10;
c:=b+d;
f:=b*d;
writeln('Сумма цифр равна = ' ,с);
writeln('Произведение цифр равно = ',f);
end.