информатика 8Класс.
Только правильно это К/Р

Еще одно очень красивое и очень странное решение через словари.

n = int(input())

print({1<=n<=4: "Начальная школа",

     5<=n<=9: "Среднее звено",

     10<=n<=11: "Старшее звено"}[True])

Здесь мы создаем неименованный словарь, который в качестве ключа использует условное выражение, а в качестве значения - соответствующую этому выражению строку.

Когда мы тут же передаем ему в качестве ключа True, словарь начнет проверять ключи и вернет именно то значение, у которого выражение-ключ было истинным.

1)
USES CRT;
VAR A:array[1..100] of Longint;   
s:integer;   
x,i:Longint;
BEGIN
CLRSCR;

      Repeat         
         Writeln('Введите 7-ми значное число');         
         Readln(x);         
         i:=x;         
         s:=0; 
        
         while i>0 do           
            begin             
               i:=i div 10;               
               s:=s+1;           
            end;       
  
        if s > 7 then Writeln('Вы ввели число больше');         
        if s < 7 then Writeln('Вы ввели число меньше');

         Writeln;
      until s=7;

      for i:=1 to 7 do       
         begin           
            A[i]:=x mod 10;           
            x:=x div 10;         
         end;

      for i:=1 to 7 do         
         Write(A[i],' ');

READLN;
END.