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

Var a: real;
begin
write ('Введите Вашу температуру: ');
read(a); //Вещественное число вводится через точку
if (a>=36) and (a<=37) then writeln ('Вы здоровы!') else writeln ('Вы больны!');
end.