var
a, b:integer;
begin
a := ReadInteger('введите пятизначное число:');
for var n := 1 to 5 do
b := b*10 + (a mod 10);
a := a div 10;
end;
Println('перевёрнутое число равно:', b);
end.
