PascalABC:var t : integer; begin Write (' Введите температуру на улице t = '); ReadLn (t); if (t >= 20) then Writeln (' На улице жарко, оденьте головной убор') else if ((t < 20) and (t > 10)) then WriteLn (' На улице прохладно, оденьте кофту') else WriteLn (' На улице холодно, оденьтесь теплее'); end.