program menu;
uses crt;
var ch: char;
begin
     clrscr;
     repeat readln(ch);
     until ch = 'i';
end.