Задание

Составьте программу, которая для произвольного натурального двузначного числа определяет сумму и произведение его цифр;

var a,sum,p:integer;

begin

read(a);

sum:=a div 10 + a mod 10;

p:=(a div 10) * (a mod 10);

writeln('Сумма цифр числа =',sum);

writeln('Произведение цифр числа =',p);

end.