program ertekeles;
uses crt;
var jegy:byte;
begin
     clrscr;
     repeat
           begin
           writeln('Kerem a jegyet!');
           readln(jegy);
           end;
     until (jegy<=5) and (jegy>=1);
     case jegy of
     1:   writeln(' elegtelen');
     2:   writeln(' elegseges');
     3:   writeln(' kozepes');
     4:   writeln(' jo');
     else writeln(' jeles');
     end;
readln;
end.