С клавиатуры вводится строка. С новой строкивводится буква

Var s: string; c: char; i, a: integer; begin readln (s); read (c); a: =0; for i: =1 to length (s) do if s[i]=c then a: =a+1; write (a); end.var s: string; begin readln (s); if length (s) mod 3=0 then write ('YES') else write ('NO'); end.var s: string; begin readln (s); if s[length (s) ] in ['а', 'о', тут через запятую гласные] then write ('YES') else write ('NO'); end.