рекурсивная процедура

[rinoolik]

1)Написать программу,содержащую рекурсивную процедуру,формирующую последовательность строк:
A
BB
CCC и т.д.Всего 26 строк.

[kventin_zhuk]

program recursion;
procedure go(c: char; i:integer);
var
  j: integer;
begin
  if i = 26 then
    exit;
  for j := 1 to i do
  write(c);
  writeln();
  go(char(integer(c) + 1), i + 1);
end;
begin
  go('a',1);
end.