program szazalek;
uses crt;
var a:byte;
begin
     clrscr;
     repeat
     writeln('Add meg a szazalekot egeszre kerekitve!');
     readln(a);
     until a<=100;
     case a of
     0..50:     writeln('elegtelen');
     51..60:    writeln('elegseges');
     61..70:    writeln('kozepes');
     71..85:    writeln('jo');
     else       writeln('jeles');
     end;
readln;
end.