паскаль стринг преобразование строк

[matrinishna]

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево)

[Антон Лысенко]

В смысле вывести код?

[matrinishna]

Сообщение от Антон Лысенко

В смысле вывести код?

да,именно.

[Антон Лысенко]

в смысле с права налево? по возрастанию что ль? или просто в ряд?

[Антон Лысенко]

если просто вывести кода цифр то вот так

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var chislo:shortstring; n,i:integer;

begin
   writeln('vvedite chislo',chislo);
   readln(chislo);
   n:=length(chislo);
    for i:=n downto 1 do
     write('Kod ',i,' zifry=',ord(chislo[i]),' ');
     readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

P.S. Формулируйте чётче задание)

[Mad_Cat]

1 вариант

read(s); //s:string;
for i:=length(s) downto 1 do
 write(s[i]);

2 вариант

read(s);// s:integer;
while s<>0 do
begin
write(s mod 10);
s:=s div 10;
end;

[Антон Лысенко]

А да не прочел внимательно условие, извиняюсь.

[matrinishna]

благодарю!))