9.2(a)
Program z92;
uses crt;
var i: Char;
j: Integer;
Begin
clrscr;
For i:='A' to 'W' do begin
for j:=1 to Ord(i)-Ord('A')+1 Do write(i);
writeln;
end;
End.