program while17;
uses crt;
var
n,i:integer;
begin
clrscr;
repeat
clrscr;
writeln('Введите число ');
readln(n);
until n > 0;
while n > 0 do
begin
i:=n mod 10;
n:=n div 10;
write(i,' ');
end;
readln;
end.
program while17;
uses crt;
var
n,i:integer;
begin
clrscr;
repeat
clrscr;
writeln('Введите число ');
readln(n);
until n > 0;
while n > 0 do
begin
i:=n mod 10;
n:=n div 10;
write(i,' ');
end;
readln;
end.