СРОЧНО!ПАСКАЛЬ
Напишите программу, содержащую процедуру 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.