01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / MAZZ1

Program  Mazz1;
Type matt=array[1..100]  of char;
Var P:matt;
    i,n,l:integer;
begin
  {writeln('‚ўҐ¤ЁвҐ Є®«-ў® бЁ¬ў®«®ў');}
  {readln(n);}
  writeln('‚ўЁ¤ЁвҐ бва®Єг');
   i:=0;n:=0;
   repeat
     i:=i+1;n:=n+1;
     read(P[i]);
   until   P[i]  = '.';
     l:=0;
  for i:=1 to n do

      if (P[i]='q') and (P[i+1]='w') and (P[i+2]='e') then l:=l+1;
  writeln('‘®зҐв ­ЁҐ ЎгЄў "qwe" ўбваҐз Ґвбп ў бва®ЄҐ ',l,' а §a');
  readln;
  end.