Question

. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.

Answer 1

var
  a:integer;

begin
  read(a);
  while(a <> 0) do 
  begin
    write(a mod 10);
    a := a div 10;
  end;
end.