(если понравится и не сложно добавьте , пожалуйста в лучшее)
Ответ: (здесь дано вместе с задачей , как пример)
Задача. Вывести квадраты всех чисел от 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.