Нужно сделать в паскаль авс самолет летит из пункта а в пункт б со средней скоростью 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.

200: 2

100|0

50|0

25|0

12|1

6|0

3|0

1|1

0|1

200₁₀=11001000₂

489: 2

244|1

122|0

61|0

30|1

15|0

7|1

3|1

1|1

0|1

489₁₀=111101001₂

543: 2

271|1

135|1

67|1

33|1

16|1

8|0

4|0

2|0

1|0

0|1

543₁₀=1000011111₂

950: 2

475|0

237|1

118|1

59|0

29|1

14|1

7|0

3|1

1|1

0|1

950₁₀=1110110110

1025: 2

512|1

256|0

128|0

64|0

32|0

16|0

8|0

4|0

2|0

1|0

0|1

1025₁₀=10000000001₂

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.