Частота пооцессора равна 2400 мгц. найдите,сколько миллионов тактов обработки информации он совершит за 5 секунд​

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

program zz1;

const n = 15; // задаем количество элементов в массиве

var i, k:integer; // задаем переменные целого типа

m,v:array [1..n] of integer;

begin

for i:=1 to n do // получаем n чисел случайных и записываем их в массив

m[i]:=random(21);

for i:=1 to n do // выводим массив на экран

write(m[i],' ');

writeln; // переходим на новую строку для вывода ответа

for i:=1 to n do

if (m[i] > 9) and (m[i] < 100) then k:=k + 1;

writeln(' количество двузначных элементов = ', k); // выводим ответ

end.