Найти четырехзначные числа, которые, будучи приписаны справа к числу 400, дают полный квадрат. На паскале.

Понный квадрат - это квадрат целого числа? Тогда как-то так:

for j:=1000 to 9999 do
if frac(sqrt(4000000+j))<0.00001 then
writln(j);