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

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