к сожалению нет,2 недели бьюсь над программой,но либо символы считает неверно,либо программу завершает неверно.
program mg4000;
var x,y:char; k:integer;
begin
repeat
readln(x);
readln(y);
if (x='*') and (y='*') then inc(k);
x:=y;
until (x='+') and (y='+');
readln;
writeln('k='k );
end.