Составить программу ** языке ПаскальАБЦ

Question

Составить программу на языке ПаскальАБЦ

---

Answer 1

Ответ:

program tempa;

var

 t: real;

begin

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

 readln(t);

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

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

 readln;

end.