program tempa;
var
t: real;
begin
writeln('Введите температуру человека: ');
readln(t);
if t <> 36.6 then writeln('Болен')
else writeln('Здоров');
readln;
end.
program tempa;
var
t: real;
begin
writeln('Введите температуру человека: ');
readln(t);
if t <> 36.6 then writeln('Болен')
else writeln('Здоров');
readln;
end.