Структура цикла repeat... until​

(если понравится и не сложно добавьте в лучшее)

ответ: (здесь дано вместе с задачей , как пример)

Задача. Вывести квадраты всех чисел от 1 до 100.

var  i: integer;  

begin  

i:=0;             //Начальное значение переменной цикла 0

repeat            //повторяй

i:=i+1;           //сначала увеличим i на 1  

writeln(i*i);     //вывести квадрат текущего значения переменной i

until i>100     //Повторяем вышеописанные действия до тех пор, пока i станет больше 100

end.