Есть три самолета(S1,S2,S3) и два города(N и M). Данные о скоростях самолетов и расстоянии между городами должен вводить пользователь, нужна проверка что бы S1

uses crt;
var v1,v2,v3,r:real;
    t,d:array[1..100] of real;
    n,i,j:byte;
begin
clrscr;
write('Расстояние между городами r=');
readln(r);
repeat
writeln('Введите скорости 3х самолетов, s1>s2,s3');
readln(v1,v2,v3);
until (v1>v2)and(v1>v3);
n:=0;
while r>40 do{пока расстояние больше 40 м}
 begin
  n:=n+1;{от 2 к 3}
  t[n]:=r/(v1+v3);{время}
  d[n]:=t[n]*v1;{путь}
  r:=r-d[n];{новое расстояние}
  n:=n+1;{от 3 к 2}
  t[n]:=r/(v1+v2);{время}
  d[n]:=t[n]*v1;{путь}
  r:=r-d[n];{новое расстояние}
 end;
writeln('Время отрезков:');
for i:=1 to n do
write(t[i]:8:2);
writeln;
writeln('Длины отрезков:');
for i:=1 to n do
write(d[i]:8:2);
writeln;
readln
end.