Программа для определения суммы и произведения цифр двузначного числа

program dvuznach;

var a,b,c,d,f:integer;

begin

writeln('Введите двузначное число');

readln(a);

b:=a div 10;

c:=a mod 10;

d:=b+c;

f:=b*c;

writeln('Сумма=',d);

writeln('Произведение=',f);

end.

Объяснение: