procedure square(a:integer;var f:boolean);
begin
f:=sqr(trunc(sqrt(a)))=a;
end;
var n,i,j:integer;
f:boolean;
begin
repeat
write('Введите n от 2 до 999 n=');
readln(n);
until(n>1)and(n<1000);
for i:=1 to n do
for j:=1 to trunc(sqrt(i)) do
if i-j*j>0 then
begin
square(i-j*j,f);
if f then
begin
write(i:4);
break;
end;
end;
end.
cHJvY2VkdXJlIHNxdWFyZShhOmludGVnZXI7dmFyIGY6Ym9vbGVhbik7CmJlZ2luCmY6PXNxcih0cnVuYyhzcXJ0KGEpKSk9YTsKZW5kOwp2YXIgbixpLGo6aW50ZWdlcjsKICAgIGY6Ym9vbGVhbjsKYmVnaW4KcmVwZWF0CndyaXRlKCfQktCy0LXQtNC40YLQtSBuINC+0YIgMiDQtNC+IDk5OSBuPScpOwpyZWFkbG4obik7CnVudGlsKG4+MSlhbmQobjwxMDAwKTsKZm9yIGk6PTEgdG8gbiBkbwpmb3Igajo9MSB0byB0cnVuYyhzcXJ0KGkpKSBkbwppZiBpLWoqaj4wIHRoZW4KIGJlZ2luCiAgc3F1YXJlKGktaipqLGYpOwogIGlmIGYgdGhlbgogICBiZWdpbgogICAgd3JpdGUoaTo0KTsKICAgIGJyZWFrOwogICBlbmQ7CiBlbmQ7CmVuZC4=