var s,a,i:real;
Begin
repeat
writeln("Вес следущего пасажира kg");
read(a);
s:=s+a;
if s<8000 then
i:=i+1;
until s>=8000
writeln(i);
End.
var b,a,i:real;
Begin
read(a,b);
repeat
a:=a+a*0.03;
i:=i+1;
until a>=b
writeln(i);
End.
var i,s:integer;
Begin
for i:= 1900 to 1999 do begin
s:=s+365;
if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100<>0)) then
s:= s+1;
end;
writeln(s);
End.
