Паскаль. Рассмотреть отрезки последовательности

[ddeman666]

36.6 Даны натуральное число n, и целые числа a1,a2…an. Рассмотреть отрезки последовательности a1,a2….,an (последовательности идущих подряд членов), состоящие из простых чисел. Найти наибольшую из длин рассматриваемых отрезков. Использовать функцию, позволяющую распознать простые числа.

взарание спасибо!!!!

[Ol'ga_new]

Можешь сделать так:

Function prost(k:integer):boolean;
begin
if k<>1 then
begin
i:=2;
while i<k do
 if (k div i)<>0 then
   prost:=false else
  prost:=true;
end;
end;
...
begin
...
kol:=0;
kol1:=0;
for j:=1 to n do
begin
if prost(a[j])<>false then
    kol:=kol+1 else 
     begin
       if kol1<kol then
          kol1:=kol;
       kol:=0;
     end;
end;
if (kol1=0)or(kol1=1) then 
writeln('здесь нет последовательно стоящих простых чисел!') else
writeln('максимальная последовательность состоит из:', kol1,'  чисел!')
end.