zad

File Edit Search Run Compile Debug Tools Options Uindów Help

rli]    ZAD_10.PAS    6=m

{zad 10>    _

{kierownik-4000, zastepca-3000, specjalista-3000, stazysta-1500> uar

stanów i sko:str i ng; staż:integer; pensja:real; begin

writelnC poda j stanówisko(kierownik,zastępca,specjalista,stażysta)'); read1n(stanów i sko); writelnC Poda j staż pracy'); readln(staz);

if stanówisko='kierownik' then begin

pensja:=4000;

if staż>5 then pensja:=pensja+500; end;

if stanówisko='zastępca' then begin

pensja:=3000;

if staż>5 then pensja:=pensja+500; end;

if stanówisko='specjalista' then begin

pensja:=3000;

if staz>5 then pensja:=pensja+500; end;

if stanówisko='stażysta' then pensja:=1500; writelnCPensja wynosi', pensja:0:2); readln; end.