ALFABEYİ EKRANA YAZDIRAN PROGRAM


uses crt;
var
   i:char;
begin
     clrscr;
     for i:='A' to 'Z' do write(i);
     writeln;
     for i:='a' to 'z' do write(i);
     readln;
end.