program prrepeat;
var
 c:char;
 x:integer;
begin
 writeln('*****');
 repeat
  write('x='); readln(x);
  writeln('x+3=',x+3);
  writeln;
  writeln('Kas veel? (j/e)');
  readln(c);
 until (c='e');
end.