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

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;   if n> 1 then writeln('спасутся все')   else     if n> 0 then writeln('спасется половина пассажиров')       else writeln('никто не спасется') end.      

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.