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;