有谁看出了这道程序的错误?
1.program wowo;
var w,e,r,t:real;
y,h:integer;
const x=0;c=2;
begin
writeln('w= e= r=');
readln(w,e,r);
writeln('w=',w:0:0,'e=',e:0:0,'r=',r:0:0);
begin
writeln('are you sure');
readln(y);
if y=(1) then t:=w+e;writeln(t:0:0);
while t>=c do
begin
x:=x+c;
c:=c+2;
writeln('x=',x);
end;
if y=(0) then readln(h);
writeln(h:0:0);
end;
end.
2.有n对围棋子（4<=n<=30)排成一行，开始位置为白子全部在左边，黑子全部在右边，如下所示  O白 #黑
OOOOO#####
按规则移动：每次必须同时移动相邻的棋子，颜色不限，可以左移也可以右移。移动时必须跳过若干个棋子。最后应成为黑白相间的一行棋子。
O#O#O#O#O#
请编程求解。
3.有2n个人在电影院售票处排队买票，每人买一张，票价5角，其中有n个人有面值5角的钱币，其余n人有面值1元的钱币，问要保证能不出现找不出零钱的情况下，编程求出有多少中排队方案？
4.编写一个译码程序,把余割英语句子译成代码.译码规则是以数字1代替字母A,数字2代替字母B,……，26代替字母Z，如遇空格则打印一个‘*’号，英文句子以‘.'结束.

[em18][em18][em18][em18][em18]