СРОЧНО!!! ДАЮ 20 БАЛЛОВ! СОСТАВИТЬ ПРОГРАММУ ** ЯЗЫКЕ ПАСКАЛЬ ABC

Question

СРОЧНО!!! ДАЮ 20 БАЛЛОВ! СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ ABC

---

Answer 1

Ответ:

program tempa;

var

 t: real;

begin

 writeln('Введите температуру человека: ');

 readln(t);

 if t <> 36.6 then writeln('Болен')

 else writeln('Здоров');

 readln;

end.