Вот и решение!
Если не сложно, поставьте "лучший ответ" и сердечко)))
var T: real;
begin
writeln('введите Вашу температуру') ;
readln(T) ;
if (T>=34) and (T<37) then writeln('Вы здоровы') ;
if (T>=37) and (T<40) then writeln('вызовите врача') ;
if (T>=40) and (T<42) then writeln('вызовите скорую') ;
if (T<34) or (T>=42) then writeln('Вы мертвы') ;
end;
Вот и решение!
Если не сложно, поставьте "лучший ответ" и сердечко)))
var T: real;
begin
writeln('введите Вашу температуру') ;
readln(T) ;
if (T>=34) and (T<37) then writeln('Вы здоровы') ;
if (T>=37) and (T<40) then writeln('вызовите врача') ;
if (T>=40) and (T<42) then writeln('вызовите скорую') ;
if (T<34) or (T>=42) then writeln('Вы мертвы') ;
end;