Question

求一道PASCAL计算机编程题答案！！用if嵌套语句做！拜托拜托！!!!!!!!

月收入t的所得税率为r如下:
月收入t 税率r
t<100 0
1000>=800 则r=5%
1500>t>=1000 则r=10%
3000>t>=1500 则r=15%
t>3000 20%
编写个程序，输入某人的月收入，输出所得税后的实际收入（交了税以后）。
拜托拜托！！！！！！！！！！！！！！

Answer 1

Var t:Longint;
r:Real;
Begin
Readln(t)
If t<100 then r:=0
Else If (t>=800) and (t<1000) then r:=5/100
Else If (t>=1000) and (t<1500) then r:=10/100
Else If (t>=1500) and (t<3000) then r:=15/100
Else If t>3000 then r:=20/100;
Writeln(t:0:2);
End.
这里r是用实数表示的

Answer 2

var i:longint;
j:real;
begin
readln(i);
if (i<800 ) then j:=i
else if (i<1000 )then j:=i-(i-800)/20
else if (i<1500) then j:=i-10-(i-1000)/10
else if (i<3000) then j:=i-60-(i-1500)*3/20
else j：=i-285-(i-3000)/5;
writeln(j:0:2);
end.