Вопрос от посетителя:
. Определите число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.
Илюха отвечает:
var
a:integer;
begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
end.