关于编程问题

你在结束前加一个readln语句。就会等你打了一个回车后再回到编程界面：
Program lx;
var r,c,y:integer;
begin
writeln('请输入密码');
write('r=');
readln(r);
write('c=');
readln(c);
write('y=');
readln(y);
if (r=1998)and(c=09)and(y=17) then write('欢迎')
else write('r=1998,c=09,y=17');
readln;
end.