Напишите алгоритм, который выводит все трёхзначные числа, квадрат записи которых оканчивается тремя цифрами, которые как раз и составляют рассматриваемое трёхзначное число. входных данных у алгоритма нет.

Var i : Integer;
Begin
  For i:=100 to 999 do
    If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.

Результат:
376 * 376 = 141376
625 * 625 = 390625