Нужно сделать в паскаль АВС   Самолет летит из пункта А в пункт Б со средней скоростью V. Составить программу для нахождения времени полёта t1, если есть встречный ветер, скорость которого V1, и времени t2, если ветра нет. Расс...

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.