Program P59;
 { Instrucţiunea for }
var i : integer;
    c : char;
begin
 for i:=0 to 9 do write(i:2);
 writeln;
 for i:=9 downto 0 do write(i:2);
 writeln;
 for c:='A' to 'Z' do write(c:2);
 writeln;
 for c:='Z' downto 'A' do write(c:2);
 writeln;
 readln;
end.