uses crt;
var niziny, hory, more, x: real;
    p, n: integer;
begin
     clrscr;
     p:=10;
     niziny:=0;
     hory:=0;
     more:=0;
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     write(' Zadej pocet vstupnich hodnot: '); readln(p);
     for n:=1 to p do
         begin
              x:=0;
              write(' Zadej vysku: ');readln(x);
              if x<=0 then more:=more+1 else
              begin
                 if (x<=300) then niziny:=niziny+1 else hory:=hory+1;
                 end;
              end;
     more:=(more/p)*100;
     niziny:=(niziny/p)*100;
     hory:=(hory/p)*100;
     writeln('--------------------------------');
     writeln('   More:   ', more:5:2,' %');
     writeln('   Niziny: ', niziny:5:2,' %');
     writeln('   Hory:   ', hory:5:2,' %');
     writeln('--------------------------------');
     readln;
end.