Пример кода : Показ квадратов целых чисел, пока мы не достигли 100
var
num, sqrNum : Integer;
begin
num := 1;
sqrNum := num * num; // Показ квадратов целых чисел, пока мы не достигли значения 100 While sqrNum <= 100 do
begin // Показ
квадрата числа
ShowMessage(IntToStr(num)+' squared = '+IntToStr(sqrNum)); // Приращение числа
Inc(num); // Возведение в квадрат
sqrNum := num * num;
end;
end;