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