---

PVZ: Žmogus kasdien uždirba tam tikrą skaičių (x) pinigų. Uždarbį įvesime klaviatūra. Paskaičiuokite kiek žmogus uždirba per vieną savaitę.

Program uždarbis;
Var x, uždarbis, i : integer;
Begin

Uždarbis := 0
For i:= 1 to 7 do

Begin
Writeln ( ‘Iveskite uzdarbi ’ , i);
Readln ( x);

Uzdarbis := uzdarbis + x;
End,

Žmogus gavęs atlyginimą kasdien išleidžia tam tikrą sumą pinigų (x) parašykite programą , kuri suskaičiuotų kas lieka po 8 dienų išlaidų.

Kiekvienos dienos išlaidas įveskite klaviatūra pvz uždarbis 400, o išlaidos 20, 50, 30, 100, 5, 10, 10, 15