{* Задача 197 *}

Unit ZADACH197;
Interface
Implementation
Begin
 writeln('Написать программу, которая рисует равнобедренный треугольник с заданными катетами, пятью различными способами: for to repeat until while do рекурсия (зацикливание) goto Длинна катета меньше 25. Должно получиться что то вроде этого: * ** *** **** ***** ну и так далее...');
End.

Program for_to_eng;

Uses zadach197.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x          : integer;
  count_char : integer;
  count_line : integer;
Begin
  write('Enter catet length, x = ');
  readln(x);
  If ((x0)) Then
  Begin
    writeln; {* Пустая строка *}
    For count_line := 1 To x Do {* Цикл для count_line => [1 .. x] *}
    Begin
      For count_char := 1 To count_line Do {* Переменная count_char увеличивается с 1 до count_line *}
        write('*');
      writeln(' ');
    End;
    writeln; {* Пустая строка *}
  End;
  Else writeln('Error! (x must belong To [1..25])');
    write('Press Enter To exit.');
  readln; {* Ждем нажатия Enter *}
End.