Вот программа , если мы хотим сложить 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.