Не лишу себя удовольствия показать еще одно очень красивое и очень странное решение через словари.
n = int(input())
print({1<=n<=4: "Начальная школа",
5<=n<=9: "Среднее звено",
10<=n<=11: "Старшее звено"}[True])
Здесь мы создаем неименованный словарь, который в качестве ключа использует условное выражение, а в качестве значения - соответствующую этому выражению строку.
Когда мы тут же передаем ему в качестве ключа True, словарь начнет проверять ключи и вернет именно то значение, у которого выражение-ключ было истинным.
1)
var
x, y: real;
begin
write('x = ');
readln(x);
if x > 13 then write('y = ', (2 - x) / (sqr(x) + 3)) else write('y = ', 54 + 2 * x);
end.
2)
var
x, y: real;
begin
write('x = ');
readln(x);
if (x >= -6) and (x < 8) then write('y = ', sqrt(8 * x + 4) - 2) else write('y = ', (3 * x - 2) * sqr(x));
end.
3)
var
x, y: real;
begin
write('x = ');
readln(x);
if (x <= 3) or ((x >= 11) and (x < 28)) then write('y = ', abs(-5 * x + 12) + 2) else write('y = ', (sqrt(x + 3) - 9) * 9 * x);
end.
4)
var
x, y: real;
begin
write('число ');
read(x);
if ((x > -4) and (x < 8)) or ((x > 32) and (x < 76)) then write('принадлежит данному промежутку') else write('не принадлежит данному промежутку');
end.
5)
var
mas: array[0..3]of real;
a: integer;
begin
for a := 0 to 2 do
begin
read(mas[a]);
if mas[a] > mas[3] then mas[3] := mas[a];
end;
write(mas[3]);
end.