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.