https://pastein.ru/t/eE

  скопируйте уникальную ссылку для отправки


program spasenie;
var t,a: real;
begin
write('расстояние до теплохода?');
readln(a);
write('время до затопления');
readln(t);
if 40*t>a then
writeln('спасутся')
else
writeln('не спасутся');
end.