Нужно сделать в паскаль АВС Самолет летит из пункта А в пункт…

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.