program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const h=['e','u','i','o','a'];
p=['q','w','r','t','y','p','s','d','f','h','g','j','k','l','z','x','c','v','b','n','m']; {Множина приголосних літер}
var ss:string;
i,k1,k2:integer;
f:textfile;
begin
// assign(f,'o.txt');
writeln('Wedit text:');
readln(ss);
// rewrite(f);
// writeln(f,ss);
k1:=0;
k2:=0;
for i:=1 to length(ss) do
if ss[i]in p then
k1:=k1+1
else
if ss[i] in h then
k2:=k2+1;
if k1>k2 then
begin
writeln;
writeln('Kilkist golosnux=',k2);
writeln('Kilkist prugolosnux=',k1);
// writeln(f,'Kilkist prugolosnux=',k1);
// writeln(f,'Kilkist golosnux=',k2);
writeln('Pryholosnyh bilhe!!!');
// writeln(f,'Pryholosnyh bilhe!!!');
end
else
begin
writeln('Holosnyh bilhe!!!');
//writeln(f,'Holosnyh bilhe!!!');
end;
// close(f);
//readln;
end.
cHJvZ3JhbSBQcm9qZWN0MjsKCnskQVBQVFlQRSBDT05TT0xFfQoKdXNlcwogIFN5c1V0aWxzOwoKY29uc3QgaD1bJ2UnLCd1JywnaScsJ28nLCdhJ107CiAgICAgIHA9WydxJywndycsJ3InLCd0JywneScsJ3AnLCdzJywnZCcsJ2YnLCdoJywnZycsJ2onLCdrJywnbCcsJ3onLCd4JywnYycsJ3YnLCdiJywnbicsJ20nXTsge9Cc0L3QvtC20LjQvdCwINC/0YDQuNCz0L7Qu9C+0YHQvdC40YUg0LvRltGC0LXRgH0KdmFyIHNzOnN0cmluZzsKICAgIGksazEsazI6aW50ZWdlcjsKICAgIGY6dGV4dGZpbGU7CgpiZWdpbgovLyBhc3NpZ24oZiwnby50eHQnKTsKIHdyaXRlbG4oJ1dlZGl0IHRleHQ6Jyk7CiByZWFkbG4oc3MpOwovLyByZXdyaXRlKGYpOwovLyB3cml0ZWxuKGYsc3MpOwoKIGsxOj0wOwogazI6PTA7CiBmb3IgaTo9MSB0byBsZW5ndGgoc3MpIGRvCiAgaWYgc3NbaV1pbiBwIHRoZW4KICAgazE6PWsxKzEKICAgIGVsc2UKICAgICBpZiBzc1tpXSBpbiBoIHRoZW4KICAgICAgazI6PWsyKzE7CgoKaWYgazE+azIgdGhlbgogYmVnaW4KICB3cml0ZWxuOwogIHdyaXRlbG4oJ0tpbGtpc3QgZ29sb3NudXg9JyxrMik7CiAgd3JpdGVsbignS2lsa2lzdCBwcnVnb2xvc251eD0nLGsxKTsKLy8gICB3cml0ZWxuKGYsJ0tpbGtpc3QgcHJ1Z29sb3NudXg9JyxrMSk7CiAgLy8gICAgd3JpdGVsbihmLCdLaWxraXN0IGdvbG9zbnV4PScsazIpOwogIHdyaXRlbG4oJ1ByeWhvbG9zbnloIGJpbGhlISEhJyk7Ci8vICB3cml0ZWxuKGYsJ1ByeWhvbG9zbnloIGJpbGhlISEhJyk7CiBlbmQKICAgZWxzZQogICAgIGJlZ2luCiAgICAgIHdyaXRlbG4oJ0hvbG9zbnloIGJpbGhlISEhJyk7CiAgICAgIC8vd3JpdGVsbihmLCdIb2xvc255aCBiaWxoZSEhIScpOwogICAgIGVuZDsKLy8gICBjbG9zZShmKTsKLy9yZWFkbG47CmVuZC4K