Ответ: Var x: real; Begin writeln(‘введите температуру’); readln(x); if x>15 then writeln(‘тепло’) else writeln(‘холодно’); readln;End.