Дополните предложения: Pete does not get a "five" because he does not know his lesson. < Does he?

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.