{* Пирамида из звездочек *}

Unit ZVZD1;
Interface
Implementation
Begin
 writeln('

Пирамида из звездочек

');
End.

Program pas;

Uses zvzd1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  j : integer;
  i : integer;
Begin
  clrscr; {* Очищаем экран *}
  For i := 1 To 25 Do {* Увеличиваем i от 1 до 25 с шагом 1 *}
  Begin
    gotoxy(40 - i, i);
    For j := 2 To 2 * i Do {* Увеличиваем j от 2 до 2 с шагом 1 *}
      write(' * ');
  End;
  
End.