Определи временную сложность следующего алгоритма:

program p1;

var m, k, i, N :integer;

begin

m := 0;

k:=2;

N := 10;

for i:=1 to N do

begin

m := m + 1;

k := 2*k;

end;

end.​

Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
 begin
 writeln('Введите кол-во правильных ответов, данных участником ',i); 
 readln(a);
 if (a > max) then max:=a;
 if a=0 then fl:=1;
 end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' ');
end.

Пример:
Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал

Const
N = 3;
Var
A:array[1..N] of integer;
S:integer:=0;
b:boolean:=false;
Begin
For var i:=1 to N do
   Begin
   Read(A[i]);
   if (A[i]>9)and(A[i]<100)and(A[i] mod 10 = 7) then
      Begin
      S+=A[i];
      b:=true;
      End;
   End;
For var i:= 1 to N do
   Write(A[i],' ');
WriteLn;
if b then Write('S = ',S)
else Write('Таких чисел нет')
End.

Const
N = 3;
Var
A:array[1..N] of integer;
S,B:integer;
Begin
For var i:= 1 to N do
   Begin
   S:=0;
   A[i]:= random(65536)-32767;
   Write(A[i]:6,' ');
   B:=abs(A[i]);
   While B<>0 do
      Begin
      S:=S+ B mod 10;
      B:= B div 10;
      End;
   A[i]:=S;
   End;
WriteLn;
For var i:= 1 to N do
   Write(A[i]:6,' ');
End.

const
N = 3;
Var
A:array[1..N] of integer;
Ch,Nch:integer;
Begin
For var i:=1 to N do
   Begin
   Read(A[i]);
   if A[i] mod 2 = 0 then Ch+=1
   else Nch+=1;
   End;
For var i:= 1 to N do
   Write(A[i],' ');
WriteLn;
WriteLn('Чёт = ',Ch);
WriteLn('Нечет = ',Nch)
End.