program bodovy_system;
uses crt;
var s,u1,u2,u3,u4,u5,u6,u7,z:integer;
    p:real;
begin
clrscr;
 writeln('zadaj pocet dosiahnutych bodov');
readln(s);
p:=s/0.5;
writeln('sucet bodov v percentach je :',p:0:2,'%');
readln;
begin
     if p>89 then z:=1
     else if p>74 then z:=2
     else if p>49 then z:=3
     else if p>29 then z:=4
     else if p<29 then z:=5;
     writeln('vysledna znamka je: ',z);
readln;
end;
end.