Определить, в какую из областей - І, II, III (см. рисунок)

Программа PascalABCvar y : integer; begin Write ( ' Введи Y = '); ReadLn(y); if (y > 0) and (y < 2) then Writeln ( ' III четверть ') else if (y > 2) and (y < 6) then WriteLn ( ' II четверть') else if (y > 6) then WriteLn ( ' I четверть'); end.