Составить программу которая запрашивает температуру воздуха на улице (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 first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.