Команда For:
For x:=1 to 9 do Writeln(x)
Команда While:
x:=-5;
While x<9 do
begin
y:=abs(x);
Writeln(y);
x:=x+1
end;
Объяснение:
Цикл For:
For переменная-счетчик := начальное значение to конечное значение do
For x:=1 to 9 do
x - переменная-счетчик
1 - начальное (минимальное) значение переменной-счетчика
9 - конечное (максимальное) значение переменной-счетчика
начальное значение <= конечного значения (если это не так, то тело цикла не выполнится ни разу)
В цикле переменная-счетчик автоматически увеличивается на 1 каждый раз при выполнении тела цикла, пока не достигнет конечного значения включительно.
В цикле While переменную надо увеличивать (или уменьшать) в теле цикла, но зато это можно делать на нужный шаг.
держи всё что нужно в файле, удачи