Решите на языке pascal. дано двухзначное число. найти сумму и произведение его цифр.

Var
a,b,c,sum,pr:longint
begin
read(a);
b:=a div 10;
c:=a mod 10;
sum:=b+c;
pr:=b*c;
write(sum,' ',pr);
end.