Составить программу которая запрашивает температуру воздуха на улице (0

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<t<30');if a<1 then writeln('Температура не соответстувет условию 0<t<30');end.
Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии