zad

N0NAME02.PAS

5=[

!=[■]=-

{zad 14> uar

doros1 i,dz iec i,dochod:integer; zasilekrreal; begin

uritelnC Poda j liczbę dorosłych w rodzinie'); readln(dorośli);

uritelnC Poda j liczbę dzieci w rodzinie'); readln(dzieci);

uritelnC Poda j dochod na osobę w rodzinie'); readln(dochod);

if dochod<=550 then begin

zas i lek:=150*doros1 i; if dzieci=l then zasi lek:=zasilek+100; if dzieci=2 then zasi lek:=zasilek+150; if dzieci>=2 then begin

dz ieci:=dz ieci-2;

zas i lek:=zas ilek+150+dz iec i +30;

end;

end;

uritelnCzasiłek jest równy', zasi lek:0:2);

readln;

end.