问几道Pascal程序基础题

1、输入一整数a，判断它是偶数还是奇数。

2、超市卖电池，每个电池0.8元，若数量超过10个，则打7.5折。

3、对一批货物，不超过500kg按 0.5元/kg 征税；对于超过500kg的货物，其中500kg按0.5/kg征税，其余超出部分，按0.8/kg征税。编一个程序，输入货物重量，输出税额。

1. 输入一整数a，判断它是偶数还是奇数
var a:integer;
begin
read(a);
if ((a div 2)=0) Then
writeln('ou shu');
else
writeln('qi shu');
readln
end.

2、超市卖电池，每个电池0.8元，若数量超过10个，则打7.5折
var a:integer;
sum:real;

begin

sum:=0.8;
read(a);

if (a > 10) Then

sum:=(sum*a)*0.75;

writeln(sum:0:2);

readln

end.

3、对一批货物，不超过500kg按 0.5元/kg 征税......
var a:integer;

sum:real;


begin

read(a);


if (a <= 500) Then


sum:=0.5*a;
else
sum=500*0.5+(a-500)*0.8;



writeln(sum:0:2);


readln


end.