帮忙看看我的程序里哪里错了?
标题:小玉家的电费
夏天到了,各家各户的用电量都增加了许多,相应的电费也交的更多了。小玉家今天收到了一份电费通知单。小玉看到上面写:据闽价电[2006]27号规定,月用电量在150千瓦时及以下部分按每千瓦时0.4463元执行,月用电量在151~400千瓦时的部分按每千瓦时0.4663元执行,月用电量在401千瓦时及以上部分按每千瓦时0.5663元执行;小玉想自己验证一下,电费通知单上应交电费的数目到底是否正确呢。请编写一个程序,已知用电总计,根据电价规定,计算出应交的电费应该是多少。
program project1;
var
s,y:real;
begin
readln(s);
if s<=150 then writeln (s*0.4463:0:1)
else
if (s>=151) and (s<=400) then
writeln (150*0.4463+(s-150)*0.4663):0:1)
else
writeln ((150*0.4463+(400-150)*0.4663+(s-400)*0.5663):0:1);
readln;
end.
program project1;
var
s,y:real;
readln(s);
if s<=150 then
begin
writeln (s*0.4463:0:1);
end
else
if (s>=151) and (s<=400) then
begin
writeln (150*0.4463+(s-150)*0.4663:0:1);
end
else
writeln ((150*0.4463+(400-150)*0.4663+(s-400)*0.5663):0:1);
readln;
end.