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

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.

Так не проще:

var
  i, j, n: integer;
  found: integer;

begin
  found := 0;
  for i := 1 to 9 do
    for j := 0 to 9 do begin

      n := (11 * i) * 100 + 11 * j;
      if sqr(trunc(sqrt(n))) = n then begin
        found := 1;
        writeln('четырехзначное число ', n, 'является точным квадратом');
      end
    end;
  if found = 0 then writeln('четырехзначного числа, являющегося точным квадратом нет');
end.

?

спасибо Так намного проще.