Program A3;
var
a,b,c,mmod,ddiv,dddiv:integer;
begin
writeln('Введите числа: ');
readln(a);mmod:= a mod 10;
b:= a mod 100;
ddiv:= b div 10;
dddiv:= a div 100;
c:=mmod*100+ddiv*10+dddiv;
writeln('Разность 1ого и перевернутого числа = ',a-c);
writeln('Произведение 1ого и перевернутого числа = ',a*c);
writeln('Разность перевернутого числа и 1ого = ',c-a);
writeln('Произведение перевернутого числа и 1ого = ',c*a);
end.