طلب تمرين مهم باسكال سنة اولى من فضلكم مساعدة

[abderahim-dz]

je veux la solution ji essayer en bas mais ca marche pas!!



Ecrire un algorithme qui lit une suite d’entiers terminée par 0 et qui affiche la longueur de la plus longue série d’entiers consécutifs égaux qu’elle contenait.

Exemples :
* Pour la suite (1, 2, 2, 4, 4 ,4 ,9 ,9 ,4 ,11 ,11 ,11 ,0): la longueur maximale est 3.
* Pour la suite (5, 5, 4, 9, 91, 4, 10, 0): la longueur maximale est 2.
* Pour la suite (6, 2, 1, 4, 1, 4,0): la longueur maximale est 1.

كود PHP:

program ex;
uses wincrt;
var i,j,val,last_val:integer;

begin
writeln('Entrer les elements de la serie:');
readln(val);
if val<>0 then begin j:=1; last_val:=val; end;
repeat
 if val=last_val then i:=i+1
 else
  begin
  last_val:=val;
   if j<i then j:=i;
  i:=0;
  end;
 if j<i then j:=i;
 readln(val);
until val=0;

writeln('la longugeur maximale est ',j);
readln;
end.