Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров ли он или болен(здоров при 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.