{* Задача 579 *}

Unit ZADACH579;
Interface
Implementation
Begin
 writeln('Напишите программу-модель анализа пожарного датчика в помещении, которая выводит сообщение «Пожарная ситуация», если температура (ее значение вводится с клавиатуры) в комнате превысила 60ºС.');
End.

Program zadach579;

Uses zadach579.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  t : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  Write('Введите температуру воздуха t=');
  read(t);
  If t > 60 Then
    writeln('Пожарная ситуация')
  Else writeln('Температура нормальная');
    readkey; {* Ждем нажатия пользователя *}
End.