برنامه ای بنویسید که حقوق یک کارمند را از ورودی خوانده اگر حقوقی بیش از 600000 تومان دریافت نمود 12%مالیات و در غیر این صورت 10%مالیات از حقوقش کسر گردد سپس حقوق پرداختی محاسبه و چاپ گردد

s=600000

Var
S : real ;
Const c =600000 ;
Begin
Writeln('please enter your sallery : ') ;
Read (s) ;
If (s> c) then
S := s - (s*12% )
Else
S := s - ( s* 10%)
Writeln ( ' the sallery that you will get : ' , s) ;
End .