Укажите логическое выражение, определяющее полуотрезок (-1,3]

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

4 попрощайся и захлопни дверь

6 вс выключи .

  заголовок выйди из дома

3 закрой квартиру

4 поверни ключ

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.