задача с суммой квадратов Опции

[vg2.0]

Помогите пожалуйста!!!

Задача: Напишите программу, запрашивающую с клавиатуры натуральное число и определяющую можно ли представить это число в виде суммы квадратов двух натуральных чисел.

или хотя бы подскажите как вычисляется сумма квадратов двух нат. чисел

Заранее Огромное Спасибо!!!

[volvo]

Ну, разбирайся тогда с этим:

uses crt;
var
  n, i, rest: integer;
begin
  clrscr;
  write('n = '); readln(n);
  for i := 1 to trunc(sqrt(n)) do begin
    rest := n - sqr(i);
    if sqr(trunc(sqrt(rest))) = rest then
      writeln(sqrt(rest)0, '^2 + ', i, '^2 = ', n);
  end;

end.