var
  num, sqrNum : Integer;

begin
  num := 1;
  sqrNum := num * num;

  // Показ квадратов целых чисел, пока мы не достигли значения 100
  Repeat
    // Показ квадрата числа
    ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));

    // Приращение числа
    Inc(num);

    // Возведение в квадрат
    sqrNum := num * num;
  Until sqrNum > 100;
end;