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

program stroka1{ўлўҐбвЁ бва®Єг Ё ®Їа.ў ­Ґ© Є®«-ў®
   -                           _ЎгЄў Ђ
                               _ЎгЄў®б®зҐв ­Ё©"rwa"
                               _б«®ў,®Є ­зЁў ойЁебп ­  Ј« б­го ЎгЄўг};
   var st:string;
   s,l,n,i:integer;
BEGIN
     writeln('ўўҐ¤ЁвҐ Ёб室­го бва®Єг');
     readln(st);
     n:=0;
     l:=0;
     s:=0;
     for i:=1 to length(st) do
     if st[i]='a' then n:=n+1;
     for i:=1 to length (st)-2 do
     if (st[i]='r') and (st[i+1]='w') and (st[i+2]='a') then l:=l+1;
     for i:=1 to length(st)-1 do
       if(st[i] in ['a','o','u','e','y','i']) and (st[i+1]=' ') then s:=s+1 ;
       if st[length(st)] in ['a','o','u','y','i','e'] then s:=s+1;
    writeln('Є®«-ў® ЎгЄў "a"-',n);
    writeln('Є®«-ў®"rwa"-',l);
    writeln('Є®«-ў® б«®ў,®Є ­зЁў ойЁебп ­  Ј« б­л©-',s);
    readln
END.