Pascal abc как сделать инециалы в нём подскажите !

var

  k: integer; begin

  read(k);

  case k of

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

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

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

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

  end; end.

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,