求一个PASCAL简单程序

program shu(inout,putput);【这个是程序的名称，根据自己的喜好而定】
var i:integer;【var为变量定义，integer为整形变量定义，就是说“i”是一个整形变量】
begin【程序开始】
read(i);【输入一个任意整数“i”】
if i=100【如果“i”的值为100】
then write('1')【然后输出数字“1”】
else write('0');【else为否则，如果不是。意思是如果不等于100，则输出数字“0”】
end.【程序结束】
如果你不理解，那你可以用以下办法，但是麻烦，不推荐使用：
program shu(input,output);【这里是程序名称，和上一个程序相同】
var i:integer;【设置一个整形变量“i”】
begin【程序开始】
read(i);【输入一个任意整数“i”】
if i=100【如果“i”的值为100】
then write('1');【然后输出数字“1”】
if i<>100【（＜＞是不等于的意思。）如果“i”的值不是100】
then write('0');【则（或者“然后”）输出数字“0”】
end.【程序结束】
另一种方法：
program shu(inputout);【程序名，和上面的程序一样】
var i,j,k:integer;【和以前的一样，设定变量，不过这次不过多了两个变量“j”和“k”变量字母代号可以任意改变】
begin【程序开始】
j:=1;【“j”的值为1】
k:=0;【“k”的值为0】
read(i);【输入一个任意整数“i”】
if i=100【如果“i‘的值为100】
then write(j)【则输出“j”的值，即1】
else write(k);【不过不是，则输出“k”的值，即0】
end.【程序结束】
｛注：第三个程序的"then write(j) els