Составить программу, которая по номеру семестра печатает курс, к которому относится введенный семестр (1 и 2 семестр – 1 курс, 3 и 4 семестр – 2 курс и т. д.). При решении нужно обязательно использовать множественный выбор

var n:integer;

begin

 readln(n);

 case  n of

   1,2:writeln('1- ый курс');

   3,4:writeln('2- ый курс');

   5,6:writeln('3- ый курс');

   7,8:writeln('4- ый курс');

   9,10:writeln('5- ый курс');

   end;

end.

Объяснение:

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

чередование четных не чётных