Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров ли он или болен (здоров при 36

+1

Var

a, b : real;

begin

writeln ('Введите свою температуру') ;

readln (a) ;

if (a>36.6) then

writeln ('[вы больны сходите к врачу ', a,']') ;

if (a<36) then

writeln ('[вы больны сходите к врачу ', a,']')

else

writeln ('все нармально ') ;

end.