program SplitNumbers;
varnum, remainder: Integer;
beginwriteln('Введите число:');readln(num);
while num <> 0 dobeginremainder := num mod 10;writeln(remainder);num := num div 10;end;end.
program SplitNumbers;
var
num, remainder: Integer;
begin
writeln('Введите число:');
readln(num);
while num <> 0 do
begin
remainder := num mod 10;
writeln(remainder);
num := num div 10;
end;
end.