Напишите программу на Паскале. Определяет сумму и творение цифр двузначного числа

program raf105;

var a,b,c:integer;

begin

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

readln(a);

b:= a div 10;

c:= a mod 10;

writeln('Сумма цифр из двузначного числа= ',b+c);

writeln('Произведение цифр из двузначного числа= ',b*c);

writeln('Введённое число наоборот: ',c,b);

end.