大家帮忙检查下，谢谢！
某服装店经营套服，也单件出售。若买的不少于50套，每套80元；不足50套的每套90元；只买上衣的每件60元；只买裤子的每条45元.


program ex15_1;
var a,b,c,ma,money:integer;
begin
writeln('Please input the count of taozhuang:');
readln(a);
writeln('Please input the count of shangyi:');
readln(b);
writeln('Please input the count of kuzi:');
readln(c);
if a>=50 then ma:=80*a
else ma:=90*a;
money:=ma+60*b+45*c;
writeln('The money need to pay is:',money);
end.


大家帮忙看看有问题没有

[解决办法]
楼主，好象你发错版块了，这是VB版块
[解决办法]
是走错屋了……
[解决办法]
Pascal?