Четырехзначное число,у которого первая цифра равно второй а третья четвертой,является квадратом двузначного числа. Найти эти числа.(паскаль,циклы)

Ответы:

uses crt,

var i,j:integer,

begin

for i:=1000 to 9999 do

for j:=10 to 99 do

if ((i div 1000)=(i div 100)mod 10)

and ((i div 10)mod 10=i mod 10)

and (i=j*j) then writeln(i),

end.