程序LX;
var r,c,y:整數;
開始
Writeln('請輸入密碼');
寫(' r = ');
readln(r);
寫(' c = ');
read ln(c);
寫(' y = ');
readln(y);
如果(r = 1998)和(c = 09)和(y = 17),則寫(' welcome ')
else寫(' r=1998,c=09,y = 17 ');
readln
結束。