написать программу, которая по вводимому числу от 1 до 11 (номеру класса) выдаёт соответствующее сообщение «, k-классник». например, при k=1 - «, первоклассник»

Uses

crt;

var

a: integer

begin

writeln('введите класс');

readln(a);

case a of

1: writeln('привет, первоклассник');

2: writeln('привет, второклассник');

3: writeln('привет, третиклассник');

4: writeln('привет, четвероклассник');

5: writeln('привет, пятиклассник');

6: writeln('привет, шестиклассник');

7: writeln('привет, семиклассник');

8: writeln('привет, восьмиклассник');

9: writeln('привет, девятиклассник');

10: writeln('привет, десятиклассник');

11: writeln('привет, одиннадцатиклассник');

else writeln( 'введите другое значение');

end;

end.

3)платформа была основана в 2012 году профессорами компьютерных наук Стэнфордского университета.Хотя платформа Соursera не была одной из первых,сегодня она стала лидером в онлайн-обучении благодаря правильному выбору стратегий обучения и коммерческой ориентации.С ресурсами этой платформы работают профессора и преподаватели из более чем 190 учебных заведений в мире.

2)xMOOC это открытие онлайн-курсы,предлагаемые авторитетными образовательными учреждениями.Курсы МООС создаются преподавателями образовательных учреждений на основе образовательных программ,а обучение проводится по установленному графику.

1) и 4) не смогла

--- на Python ---

from random import*

n = int(input('Введите размерность массива : '))

a=[0]*n

for i in range (0,n):

   a[i] = randint(0,2)

print(a)

a = sorted(a)

print(a)

--- на pascal подходит для Delphi и Lazarus ---

var

 a : array of integer;

 i, j, n : integer;

begin

 randomize;

 writeln('Input n');

 readln(n);

 SetLength(a,n);

 for i := 0 to n - 1 do begin

   a[i] := random(3);

   write(a[i]);

 end;

 i:=0;

 while i < n-1 do

   if a[i]>a[i+1] then begin

     j := a[i];

     a[i] := a[i+1];

     a[i+1] := j;

     i:=0;

   end

   else

     inc(i);

 writeln('');

 for i := 0 to n - 1 do

     write(a[i]);

 

end.