Найти квадраты чисел, не превышающих 15 - Pascal ABC

Repeat,While,For

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

var i, a : integer;
begin
  i:=1;
  repeat
    a:=i;
    a:=sqr(a);
    Write(a, ' ');
    i:=i+1;
  until i>15;
end.

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

В данном коде выполняется следующие действия:

Объявляются две переменные: i и a типа integer (целое число).
Переменная i инициализируется значением 1.
В цикле repeat-until выполняется следующая последовательность действий:
- переменная a присваивается значение переменной i;
- переменная a вычисляется как квадрат значения переменной a (sqr(a));
- значение переменной a выводится на экран (Write(a, ' '));
- переменная i увеличивается на 1.
Цикл выполняется до тех пор, пока значение переменной i не станет больше 15.
Код завершается.