[Pyro]

PHP код:

function check(s: string; c: char='e'; num: Integer=5): Boolean;
var i, n: integer;
begin
  result := false;
  n := 0;
  i := 1;
  while i <= length(s) do
  begin
    if s[i] = c then Inc(n) else n := 0;
    if n = num then begin
      result := true;
      break;
    end;
    Inc(i)
  end;
end;