program z1;
var a: integer;
begin
write ('a = ');
readln(a);
repeat
writeln (a mod 10);
a:=a div 10
until a = 0
end.
program z1;
var a: integer;
begin
write ('a = ');
readln(a);
repeat
writeln (a mod 10);
a:=a div 10
until a = 0
end.