freepascal 程序 ～来看看错在哪了？

第1个：
var s, v, r, h1,h2: real;
begin
readln(r,h1,h2);
s:=2*pi*r/2*sqrt(h1*h1+r*r)+2*pi*r*h2+pi*r*r;
v:=pi*r*r*h1/3+pi*r*r*h2;
writeln(s:0:4,' ',v:0:4);
end.

第2个：
var a, b, c:char;
begin
readln(a,b,c);
writeln(a, b, c);
writeln(ord(a),' ',ord(b),' ',ord(c));
writeln(c,b,a);
end.

第3个：
var x, a, b, c: integer;
begin
readln(x);
a:=x div 100;
b:=x div 60;
c:=x mod 10;
writeln(c, b, a);
end.

把改后的程序写出来哦～

for freepascal 均分纸牌 火车进栈问题,用FreePascal解决 关于freepascal中的float的使用 请问Freepascal For NOT 这软件从哪里下载？ 我用FreePascal写的阶乘递归函数执行失败 在freepascal语言中关于ansistring的使用问题 为什么我刚下载的freepascal全是乱码 ■FreePascal的for语言问题.3个急■ 信息奥赛 现在还加分吗？ 比赛用的是freepascal 还是turbo pascal 怎么在/www.freepascal.org 中下载,我看不懂英语