program uzd1;{izveidot masivu,kuru no tastaturas aizpildit ar 15 vardiem
ar garumu no 5 lidz 12 simboliem.Izvadit uz ekrana cik procentuali
katrs no vardiem satur patskanjus.}
uses crt;
const n=5;
var mas:array[1..n] of string;
s:string[12];
i,j,count:integer;
a:char;
begin
    clrscr;writeln('ievadiet vardu');
readln(a);
    for i:=1 to n do begin
    count:=0;
    for j:=1 to length(mas[i]) do
               if upcase(mas[i][j]) in ['a','e','i','o','u']
                then inc(count);
    writeln('vards',mas[i],'sastav',count/length(mas[i]),'% patskanjus');
    end;
    end.