zad 1

- ZAD_.13.PAS -1

(!=[■]=-- ZAD_1. PAS -=[t]=n

{ZADNIE_1>

uses crt;

const n=10;

type pracownik=record

dochod,podatek:rea1;

end;

uar

tab:array[l..n] of pracownik;

i:integer;

pomrreal;

begin

clrscr;

randomize;

for i:=1 to n do

tab[i].dochod:=(random(180+21)*100); wr iteln(tab Cii.dochod:0:2); end.

writeln;

for i:=1 to n do

if tabCi].dochod<=85528 then begin

tab[i].podatek:=tab Cii.dochod*0.18-556.02; writeln(tab[i] : podatek:0:2);

else

begin

pom: = (tab Cii.dochod-85528)*0.32;

tab[i].podatek:=14833.02+pom;

wr iteln(tab Cii.podatek:0:2);

end;

readln;

end.

20:44