Нарисовать прямоугольный равнобедренный треугольник - Pascal ABC

Формулировка задачи:

Задано целое число. Используя средства стандартного ввода-вывода, изобразить на экране прямоугольный равнобедренный треугольник, катеты которого параллельны осям координат и равны за данному числу.

Решение задачи: «Нарисовать прямоугольный равнобедренный треугольник»

Листинг программы

const c = '*';
      h = 25;
var n, i: integer;
begin
  repeat
    write('n in 1..', h, ';  n = ');
    readln(n)
  until (n >= 1) and (n <= h);
  for i := 0 to n - 2 do
    begin
      write(c);
      if i = 0
        then writeln
        else writeln(c:(2 * i))
    end;
  for i := 1 to n do write(c, ' ');
  readln
end.

Объяснение кода листинга программы

const c = ''; — объявляется константа c, которая содержит символ ``.
h = 25; — объявляется переменная h, которая содержит значение 25.
var n, i: integer; — объявляются переменные n и i, которые имеют тип integer (целое число).
begin — начинается блок кода.
repeat — начинается цикл repeat.
write('n in 1..', h, '; n = '); — выводится сообщение n in 1..25; n = и считывается значение переменной n.
readln(n) — считывается значение переменной n.
until (n >= 1) and (n <= h); — выполняется условие до тех пор, пока n не станет меньше или равным 1.
for i := 0 to n — 2 do — начинается цикл for.
begin — начинается вложенный блок кода.
write(c); — выводится символ *.
if i = 0 then writeln — выполняется условие, если i равно 0.
else writeln(c:(2 * i)); — выполняется условие, если i не равно 0.
end; — заканчивается вложенный блок кода.
end; — заканчивается цикл for.
for i := 1 to n do write(c, ' '); — начинается еще один цикл for.
readln; — считывается значение переменной n.
end. — заканчивается блок кода.