К числу 0884 слева и справа приписали по цифре так, чтобы полученное число было бы полным квадратом целого числа.(208849=457^2)

program z1;
uses crt;
var a,b,c:integer;
 d:real;
begin
for a:= 1 to 9 do
for b:=0 to 9 do
begin
c:=8840+a*100000+b;
d:=sqrt(c);
if d=int(d) then write (c:6);
end;
end.