Найти алгоритм решения задачи и реализовать его с помощью оператора(операторов)...

Question

Найти алгоритм решения задачи и реализовать его с помощью оператора(операторов) if-then-else. В Атлантическом океане терпит бедствие пассажирский теплоход ”Посудина”. Все пассажиры будут спасены, если на помощь успеют два судна. Судно продержится на плаву t часов. Скорость судов-спасателей 40 узлов. Составить программу, определяющую спасутся ли пассажиры. Известны расстояния от трех судов-спасателей до тонущего судна.

Answer 1

Const
  v=40;
var
  t,r1,r2,r3:real;
  n:integer;
begin
write('Сколько часов продержатся пассажиры? ');
readln(t);
write('Введите расстояния до трех спасателей (в узлах): ');
readln(r1,r2,r3);
if r1/vif r2/vif r3/vIf n>1 then writeln('Спасутся все')
  else
    if n>0 then writeln('Спасется половина пассажиров')
      else writeln('Никто не спасется')
end.