program ukol8;

uses crt;
var
   znak:char;

begin
   clrscr;
   for znak:='a' to 'z' do write(znak); {vypis malych znaku}
   writeln;
   for znak:='A' to 'Z' do write(znak); {vypis VELKYCH ZNAKU}
end.