Помогите перестроить решение задачи как вложенный цикл, Помогите перестроить решение задачи как вложенный цикл и проверьте пра Опции

[TanyaH]

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

program p2;
user crt;
var
     i;j;k1;k2;k3;k4;l: integer;
begin
   ClrScr;
For I:=1000 to 9999 do
If sqrt (i)= trunk(sqrt (i)) to 
K1:=i-trunc(i/10)*10;
K2:=i-trunc(i/100)*100-k1;
K3:=k+(i-trunc(i/1000)*1000)-k1-k2;
K4:=k-k3-k2-k1;
If (k1=k2/10) and (k3/100=k4/1000) to 

write('четырехзначное число');
write(i);
write(',является точным квадратом');
k1:=0; k2:=0; k3:=0; k4:=0;
l:=1;
End;
If l=0 to write('четырехзначного числа, являющегося точным квадратом нет');
end.