program StrMatchTest(input, output);

type rivi = packed array [1..60] of char;
     jono = packed array [1..4] of char;

var maara: integer;
    r: rivi;
    j: jono;

{------------------------------------------------}
{Tehtävä 8.5&6 a)                                }
{------------------------------------------------}
procedure StringMatch(mista: rivi; mita: jono;
                      var kpl: integer);
  var i, j: integer;
      jep: boolean;
begin
  kpl := 0;
  for i := 1 to 57 do
    begin
      jep := true;
      for j := 1 to 4 do
         jep := jep and (mista[i+j-1] = mita[j]);
      if jep then
         kpl := kpl+1;
    end;
end;

begin 
  r :=  '821493apuapuapua7987987apua987apua8765435439876543098654328 ';
  j :=   'apua';
  StringMatch(r, j, maara);
  writeln(maara);

  r :=  '821493apuapuapua7987987apua987apua8765435439876543098654328 ';
  j :=   '&&%/';
  StringMatch(r, j, maara);
  writeln(maara);

  r :=  '821493apuapuapua7987987apua987apua8765435439876543098654328 ';
  j :=   '7987';
  StringMatch(r, j, maara);
  writeln(maara);

  r :=  '821493apuapuapua7987987apua987apua8765435439876543098654328 ';
  j :=   '4328';
  StringMatch(r, j, maara);
  writeln(maara);

end.