Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел? Написать программу решения этой задачи — Pascal(Паскаль)

uses crt;
var n,i,a:integer;
    b:real;
    l:boolean;
begin
clrscr;
write('n=');
readln(n);
i:=0;
repeat
i:=i+1;
a:=n-sqr(i);
b:=sqrt(abs(a));
if trunc(b)=b then l:=true
else l:=false;
until(l=true)or(i>sqrt(n));
if l then writeln('Можно!  ',i,' ',b:0:0)
else writeln('Нет!');
readln
end.