Дано натуральное число n. Среди чисел 1, 2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел

Определить процедуру, позволяющую распознать полные квадраты.

INPUT "vvedite chislo N ",n
FOR i = 1 TO n
  FOR j = 1 TO SQR(i)
    IF SQR(i - j ^ 2) > 0 AND SQR(i - j ^ 2) = INT(i - j ^ 2) THEN PRINT i; "="; j; "^2+"; SQR(i - j ^ 2); "^2"
NEXT
NEXT

автор: кот Бегемот