const b='z';
var a:string;
k,i,l:integer;   p:real;
begin
writeln('введите текст'); readln(a);
l:=length(a);  {длинна текста}
for i:=1 to l do
if a[i]='z' then inc(k);
p:=k/l*100;
writeln(p,' процент букв z');
end.