Урок 11 Задача 13

Урок 11 Задача 13

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке

var i, a: integer;

begin
  writeln('vvedite pyatiznacnoe chislo: ');
  readln(a);
  writeln();
  writeln('reshenie: ');
  for i:=1 to 5 do
  begin
    write(a mod 10);
    a:=a div 10;
  end;
  writeln(); writeln();
  writeln('<<konec>>');

  readln();

end.