Паскаль. Последовательность чисел

[Chelios_rus]

Паскаль. Последовательность чисел

Пожалуйста помогите с заданием. Язык программирования паскаль.

Найти есть ли в последовательности чисел, вводимых с клавиатуры, три одинаковых числа, следующих подряд. Признак завершения ввода: первое число встретилось три раза.

 

[Vladimir_S]

Пожалуйста помогите с заданием. Язык программирования паскаль.

Найти есть ли в последовательности чисел, вводимых с клавиатуры, три одинаковых числа, следующих подряд. Признак завершения ввода: первое число встретилось три раза.

Прежде всего - на будущее: именования тем типа "Помогите!", "Help!!!", "Нужна помощь" и т.п. у нас ПОД ЗАПРЕТОМ. Прошу учесть.

Теперь по задаче. Пожалуйста:

Var
 a,b,c,a1,k:Integer;
Begin
 k:=1;
 b:=0;
 c:=0;
 write('First number: ');
 readln(a1);
 a:=a1;
 Repeat
  c:=b;
  b:=a;
  write(' Next number: ');
  readln(a);
  if (a=b) and (b=c) then writeln('Yes! a= ',a);
  if a=a1 then k:=k+1;
 Until k=3;
 Readln
End.

 

[Chelios_rus]

Учту, спасибо.