program ch0 ;uses crt;var k, z, i : integer ;beginwriteln (039;

Program ch0 ;
uses crt;
var k, z, i : integer ;
begin
writeln (' ');
read (k);
z:=0;
while kgt;0 do begin
z:=z*10;
z:=z + (k mod 10);
k:=k div 10;
end;
while zgt;0 do begin
i:=z mod 10;
z:=z div 10;
writeln (i, ' ');
end;
end. Поясните пожалуйста