Циклы с известным числом повторений

Примеры циклов на Delphi.

var

Form1: TForm1;

x, A:Integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

For A:=1 to 10 do

begin

x:=1+x; / /Присваиваем единицу и выводим на экран результат

Label1. Caption : = IntToStr (x);

//Тело цикла

end;

A:=1; / /Присваиваем единицу

While A 100 do / /Пока А не равно 100 - делаем цикл

Begin

//Тело цикла

A:=A+1; / /прибавляем единицу к переменной

Label1. Caption:=IntToStr (a); / /Выводим значение переменной А

end;

end;

end.