program kontroll4;
var hinne: integer;
begin
 repeat
   write('Hinne=');
   {$I-}
   readln(hinne);
   {$I+}
 until (hinne<=5) and (IOResult=0);
 writeln('Hinne on ',hinne);
end.