Не лишу себя удовольствия показать еще одно очень красивое и очень странное решение через словари.
n = int(input())
print({1<=n<=4: "Начальная школа",
5<=n<=9: "Среднее звено",
10<=n<=11: "Старшее звено"}[True])
Здесь мы создаем неименованный словарь, который в качестве ключа использует условное выражение, а в качестве значения - соответствующую этому выражению строку.
Когда мы тут же передаем ему в качестве ключа True, словарь начнет проверять ключи и вернет именно то значение, у которого выражение-ключ было истинным.
program raf105;
var fioa2:array[1..20] of string;
fioa1:string;
m1,g1,m2,g2,i,o:integer;
begin
write('Введите сегодняшнюю дату (месяц, год) через пробел: ');
readln(m1,g1);
g1:= g1*12;
m1:= m1+g1;
writeln;
for i:=1 to 20 do
begin
write(i,'. Введите фамилию, имя, отчество и адрес сотрудника: ');
readln(fioa1);
write(' Дата поступления (месяц, год): ');
readln(m2,g2);
writeln;
g2:= g2*12;
m2:= m2+g2;
if m1-m2>=36
then begin
o:= o+1;
fioa2[o]:= fioa1;
end;
end;
writeln('Сотрудники которые проработали не менее трёх лет:');
for i:=1 to o do
writeln(i,'. ',fioa2[i]);
end.
Язык программирования PascalABC
Program n1;
var a: array[1..15,1..15] of integer;
i,n,j: integer;
begin
randomize;
write('n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.