var
i,j:integer;
x,y:real;
begin
write('Введите трехзначное число',' ');
readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln('Число записано в обратном порядке',' ',j);
x:=i*j;
y:=i-j;
writeln('Произведение трехзначного числа и числа "перевертыша"',' ',x);
writeln('Разность трехзначного числа и числа "перевертыша"',' ',y);
end.