zad

lr=L« J=

ZAD_16.PAS

{zad 16>

uar

premia, obroty:real;

pom:real;

begin

writelnC poda j obroty uzyskane przez handlowca'); readln(obroty);

if obroty<=100000 then premia:=0 else

if obroty<=200000 then premia:=obroty*0.5 else

if obroty<=300000 then premia:=(obroty-200000)*0.01+1000 else

premia:=(obroty-300000)*0.02+2000; pom:=prem ia*0.81;

writelnC premia jest równa', pom:0:2); readln; end.