Question

Написать программу вычисления подоходного налога по формулам:

а) при сумме менее 2500 рублей налог не взимается,
б) от 2500 до 10000 руб, берется 13\% от суммы,
в) при сумме более 10000 руб берется 1300 рублей плюс 15\% от суммы превышающей 10000 рублей.
Указание: программу проверить при суммах 1000, 8000 и 12000 руб. Ответы должны быть соответственно 0, 1040 и 1600 руб. На паскале

Answer 1

Program Nalog;{Uses crt}{Если надо}varz,x:real;begin
Write('Ввидите число  ');Read(x);If x<2500 then Writeln('налог = 0');
beginif (x>=2500) and (x<10000) thenz:=x*0.13;Writeln('Налог=',z);end;Beginif x>=10000 then z:=(x-1300)*0.15;Writeln('Налог=',z);{READLN - Если турбо поскаль или фрии}end;end.
Картинка снизу 
Только есть 1 проблемв с последним