Сумма 2 квадратов написать программу определяющую возможность представления заданного натурального числа n в виде суммы двух квадратов натуральных чисел

Вот программа, если мы хотим сложить 2 квадрата одного числа

program sqr;

var n, a: integer;

begin

write ('Введите число>>');

read (n);

a: = n*n+n*n;

writeln (a)

end.

Но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться)

program sqr;

uses crt;

var n: integer; a, b:real;

begin

write ('Введите число>>');

read (n);

a: = sqrt (n);

if (a = sqrt (n)) and (a = (n*n)) then

begin

b: = sqrt (a);

if b = (a*a) + (a*a) then

writeln ('Можно');

if b (a*a) + (a*a) then

writeln ('Нельзя');

end;

if (a = sqrt (n)) and (an*n) then

writeln ('Нельзя')

end.