Найти длину наибольшего отрезка последовательности, состоящего из полных квадратов

uses crt;
 
var i,n,cur,maxL,l: integer;
 
 
begin clrscr;
write('n = '); readln(n);
write('Vvedite ',n,' tselyh chisel cherez probel: ');
 
maxL := 0; l := 0;
 
for i := 1 to n do
 begin
 read(cur);
 if abs(sqrt(cur) - round(sqrt(cur))) < 0.00001 then
  inc(l)
 else
  begin
  if l > maxL then maxL := l;
  l := 0;
  end;
 end;
readln;
writeln;
 
writeln('Maksimalinaia dlina poslenovatelinosti = ',maxl);
readkey; end.

uses crt;
 
var i,n,cur,maxL,l: integer;
 
function kvadrat(cur: integer): boolean;
begin
if abs(sqrt(cur) - round(sqrt(cur))) < 0.00001 then
 kvadrat := true
else kvadrat := false;
end;
 
 
begin clrscr;
write('n = '); readln(n);
write('Vvedite ',n,' tselyh chisel cherez probel: ');
 
maxL := 0; l := 0;
 
for i := 1 to n do
 begin
 read(cur);
 if kvadrat(cur) then
  inc(l)
 else
  begin
  if l > maxL then maxL := l;
  l := 0;
  end;
 end;
readln;
writeln;
 
writeln('Maksimalinaia dlina poslenovatelinosti = ',maxl);
readkey; end.

uses crt;
const nmax=20;
function IsKvd(a:longint):boolean;
begin
IsKvd:=frac(sqrt(a))=0;
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе цепочки полных квадратов:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;mx:=0;imx:=0;
while i<=n do
if IsKvd(a[i])and IsKvd(a[i-1])  then
  begin
   j:=i;k:=1;
   while (Iskvd(a[j])and IsKvd(a[j-1]))and(j<=n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>mx then
    begin
     mx:=k;
     imx:=i-1;
    end;
   i:=i+k;
  end
else i:=i+1;
if mx=0 then write('Нет полных квадратов!')
else
 begin
  writeln('Максимальная последовательность полных квадратов=',mx);
  for i:=imx to imx+mx-1 do
  write(a[i],' ');
 end;
readln
end.

uses crt;
const nmax=20;
function IsKvd(a:longint):boolean;//функция определения полного квадрата
begin
IsKvd:=frac(sqrt(a))=0;//если дробная часть кв. корня=0, полный квадрат
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том цисле цупочки полных квадратов:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;mx:=0;imx:=0;//начнем со 2, длина = 0, цепочки нет
while i<=n do//пока не конец массива
if IsKvd(a[i])and IsKvd(a[i-1])  then //если жто полн. квадрат и перед нпм то же
  begin
   j:=i;k:=1;//начало цепочки, 1 член есть
   while (Iskvd(a[j])and IsKvd(a[j-1]))and(j<=n) do//пока идет цепочка
    begin
     j:=j+1;//идем вперед
     k:=k+1;//считаем
    end;
   if k>mx then //если больше макс.
    begin
     mx:=k; //это макс.
     imx:=i-1;//начало цепочки
    end;
   i:=i+k;//перешагиваем через нее
  end
else i:=i+1;//иначе на 1 вперед
if mx=0 then write('Нет полных квадратов!')
else
 begin
  writeln('Максимальная последовательность полных квадратов=',mx);
  for i:=imx to imx+mx-1 do //вывод цепочки от ее начала макс-1 элементов
  write(a[i],' ');
 end;
readln
end.

uses crt;
const nmax=20;
function IsKvd(a:longint):boolean;
begin
IsKvd:=frac(sqrt(a))=0;
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том цисле цупочки полных квадратов:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=1;mx:=0;imx:=0;
while i<=n do
if IsKvd(a[i]) then
  begin
   j:=i;k:=0;
   while (Iskvd(a[j]))and(j<=n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>mx then
    begin
     mx:=k;
     imx:=i;
    end;
   i:=i+k;
  end
else i:=i+1;
if mx=0 then write('Нет полных квадратов!')
else
 begin
  writeln('Максимальная последовательность полных квадратов=',mx);
  for i:=imx to imx+mx-1 do
  write(a[i],' ');
 end;
readln
end.