Не лишу себя удовольствия показать еще одно очень красивое и очень странное решение через словари.
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
var srp,sro:real;
n,p,o:integer;
begin
srp:=0;
sro:=0;
p:=0;
o:=0
repeat
readln(n);
if (n>0) then begin srp:=srp+n; inc(p); end;
if (n<0) then begin sro:=sro+n; inc(o); end;
until n=0;
writeln('Ср положительных= ',srp/p);
writeln('Ср отрицательных= ',sro/o);
end.