program HelloWorld;
var S: real;
begin
writeln('Введите значение температуры:');
readln(S);
if (s>36.6) then
writeln('Не здоров!')
else
writeln('здоров!')
end.
program HelloWorld;
var S: real;
begin
writeln('Введите значение температуры:');
readln(S);
if (s>36.6) then
writeln('Не здоров!')
else
writeln('здоров!')
end.