pascal语言

Question

var
x,y:array[1..10]of integer
i,s:integer
begin
s:=0;
for i:=1 to 10 do
begin
x[i]:=2*i-1;
y[i]:=20+i;
s;=s+x[i]*y[i];
end.
writein('s'=,s)
end.

Answer 1

额。。你是要程序输出结果吗？如果是那输出：
s=2715
最好补充一下要我们做什么
楼下说错了，语法点没有错，不信可以输到pascal里面去执行

Answer 2

唔，语法应该没有错！就是代码格式有点不好！呵呵！
s=2715
没错！兄弟不会机子里没装PASCAL吧！哈哈

Answer 3

语法错误有点多啊
var
x,y:array[1..10]of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
x[i]:=2*i-1;
y[i]:=20+i;
s:=s+x[i]*y[i];
end;
writeln('s=',s)
end.
输出是's=2715'

楼上的朋友，WRITELN都写成WRITEIN了 还有好多'；'没有打
这应该是一个改错题