Tugas Pak Erik untuk 30 Desember

program for i;
uses crt;
var
i.z:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for z:=1 to i do
write(chr(64+z));
writeln;
end;
readln;
end.


hasilnya
A
AB
ABC
ABCD
ABCDE