program islaidoss;
var uzdarbis, islaidos, diena: integer;
begin
Writeln ('Uzdarbis:', ' ');
Readln ( uzdarbis );
for diena := 1 to 8 do
begin
WriteLn ( diena,' ', ' dienos islaidos:');
ReadLn ( islaidos );
uzdarbis := uzdarbis - islaidos;
end;
WriteLn ( 'Is uzdarbio liko:', ' ', uzdarbis );
ReadLn;
end.