Var a : integer;beginwriteln('Введите температуру: ');read(a);if (a<31) and (a>10) then writeln('Жарко');if (a>0) and (a<11) then writeln('Прохладно');if a>30 then writeln('Температура не соответстувет условию 0Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии