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

Var

a, b : real;

begin

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

readln (a);

if (a>36.6) then

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

if (a<36) then

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

else

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

end.