uses crt var char begin clrscr for to do write readln end

1
2
3
4
5
6
7
8
uses crt;
var a:char;
begin
clrscr;
for a:='a' to 'z' do
write(a);
readln;
end.