Паскаль напишите программу, содержащую процедуру print, которая выводит последовательность: aababcabcd abc xyz

Procedure print();
 var i,j: char;
begin
 for i := 'A' to 'Z' do
 for j := 'A' to i do
   write(j)
end;

begin
 print()
end.