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.