напиши программу в которой будут вычеслены сумма и произведенние цифр двузначного числа

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.