例题：
使用while循环编写一个密码程序，直到输入a9时，才退出循环

程序代码：

program c1(input,output);

var x,y:char;

const a=1;

begin

while a=1 do

begin

write('please input a password:');

read(x,y);

if (x='a')and(y='9') then

break;

end;

write('You are right!');

end.

代码说明：
1、在说明部分定义的const a=1这里的=前面没有冒号，因为这是在说明部分里面。
2、在循环条件中的while a=1这里的=前面没有冒号，因为这是在循环条件里面，表示判断。
3、当密码输入错误时，会跳转到while处继续执行，而不是跳转到begin执行。

提示：用上面的代码设定的密码，最好为纯数字的，不要出现字母，就是说定义变量的时候，要定义成实数型的变量，否则有可能会出现一些不可预料的小问题，各位自己去体会吧。