Составить программу которая запрашивает температуру воздуха на улице (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. т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.