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