Сформулировать таблицу квадратов чисел от 1 до 15. Использовать цикл "до" (с постусловием). То есть, написать простой алгоритм на паскале.

Программа написана на PascalABC, но код должен работать для любой версии этого языка программирования.

program SquaresFrom1To15;
{переменная - итератор}
var i : integer;
begin
{задаем первоначальное значение итератора}
i := 1;
writeln ('Эта программа определяет квадраты чисел от 1 до 15');

{repeat until - конструкция для цикла с постусловием в pascal}
repeat
begin
{выводим квадрат числа}
writeln(i * i);
{изменяем итератор}
i := i + 1;
end
{условие, ВАЖНО, цикл с постусловием работает, пока оно ЛОЖНО}
until (i > 15);

end.