набросать алгоритм Опции

[Ринат]

Дано число Н. В промежутке от 1 до Н найти числа,запись которых совпадает с записью последних цифр квадратов этих чисел. Например, 5-25,
6-36.
желательно сегодня. горит.
Заранее благодарен.

[mj]

var
  D, F, Z: Integer;
begin
  D := StrToIntDef(Edit1.Text, 0);
  Z := 10;
  for F := 1 to D do
  begin
    while Z<=F do
      Z := Z*10;
    if ((F*F) mod Z)=F then
      WriteLn(F);
  end;
end;