Нужно сделать в паскаль авс самолет летит из пункта а в пункт б со средней скоростью v. составить программу для нахождения времени полёта t1, если есть встречный ветер, скорость которого v1, и времени t2, если ветра нет. расстояние между пунктами a и б считать известным и равным s.

var s, v, v1: real;

      t1, t2: real;

      b: boolean;

begin

  b: =false;

  repeat

    writeln('введите расстояние между пунктами а и б');

    readln(s);

    if s< 0 then

      begin

        writeln('отрицательное расстояние. повторите ввод');

        continue;

      end;

    writeln('введите среднюю скорость самолета');

    readln(v);

    if v< 0 then 

      begin

        writeln('отрицательная скорость. повторите ввод');

        continue;

      end;

    writeln('введите скорость встречного ветра');

    readln(v1); //если ветра нет нужно ввести 0

    if v1< 0 then

      begin

        writeln('отрицательная скорость. повторите ввод');

        continue;

      end;

    b: =true;

  until b = true;

  if v1> 0

  then

    begin

      t2: =s/v;

      writeln('время полета: ', t2);

    end

  else

    begin

      t1: =(v-v1)/s;

      writeln('время полета: ', t1);

    end;

end.

система                надсистемашкола                        отдел образованиябольница                зданиеавтомобиль          транспортрека                                  мировой океанпланета                          солнечная система