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 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.
Объяснение:
Надеюсь правильно понял посыл...