Расшифруйте с шифра скитала Клнаобсисркиинйт

койка, стройка, трест, рой, репа, тройка, река, серп,строка.

файл с исходным текстом программы на паскале должен иметь расширение pas.

февраль-3 месяц зимы

май-3 месяц весны

август-3 месяц лета

сентябрь не знаю как связать

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.