В последовательности чисел, вводимых с клавиатуры...

[haim08]

В последовательности чисел, вводимых с клавиатуры, подсчитать кол-во повторений трех одинаковых чисел. признак завершения хода: введение числа равного первому. Помогите пожалуйста( очень срочно надо

[Aranea tela telam]

Program pr15;
var
s,a,b,c:string;
i,d,g:integer;
begin
d:=0;
readln(s);
i:=Length(s);
for g:=3 to i do
begin
a:=copy(s,g-2,1);
b:=copy(s,g-1,1);
c:=copy(s,g,1);
if a=b  then
begin
if b=c then
d:=d+1;
end;
end;
writeln(d);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.