program Podatek; {Obliczanie podatku: y od dochodu : x: do 85528 zl -> podatek wynosi: 0.18*x-556.02 zl ponad 85528 zl -> podatek wynosi: 14839.02+0.32*(x-85528) zl} var x,y:real; begin; writeln('Wczytaj dochody (do dwoch miejsc po przecinku):'); readln(x); if x<=85528 then begin y:=0.18*x-556.02; if y<0 then y:=0; writeln('Podatek wynosi ',y:0:2,' zl.'); end else begin y:=14839.02+0.32*(x-85528); writeln('Podatek wynosi ',y:0:2,' zl.'); end; readln; end.