几个pascal的小题目

1.
var a:array[1..5]of integer;
i,j,x:integer;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 2 do for j:=i+1 to 3 do if a[j]<a[i] then
begin x:=a[j];a[j]:=a[i];a[i]:=x;end;
writeln(a[1],a[2],a[3]);
end.

楼上的两个b!一个六个if个鸟！
一个连顺序排序都不会用!!!

2.
var n,l,i:integer;
st:string;
begin
readln(st);l:=length(st);n:=0;
for i:=1 to l do
n:=n+ord(st[i])-48;
writeln(n);
end.

楼上的两个b!一个两位数的谁都会！
一个那么长!

3.
var i,j,n:integer;
begin
readln(n);
for i:=2 to n-1 do
if n mod i=0 then
begin
writeln('No');
halt;
end;
writeln('Yes');
end.

楼上的两个b!一个打都不打印！
另一个：for i:=2 to n do
if n mod i=0 then．．
应该是for i:=2 to n-1 do竟然犯这种弱智错误！！永远都会输出”NO”!!!

4.
var i,j,m:integer;
begin
readln(i,j)