Если дискета вращается со скоростью 300 оборотов в минуту, а компьютер выполнить 100 операций в микросекунду (миллионная доля секунды), то сколько операций сможет выполнить этот компьютер за время ожидания доступа диска?

Program Linao;
uses crt;
const n = 20;
var
  x:array [1..n] of real;
  i,k,j,sum:integer;
  max, min,temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  for i:=1 to n do
    begin
      write('*');
      for j:=1 to n*100000 do j:=j;
    end;
  writeln;
  k:=0;
  randomize;
  sum:=0;
  writeln('негативні елементи: ');
  for i:=1 to n do
    begin
      x[i]:=random(101)-50;
      if x[i]<0 then
        begin
          sum:=sum+i;
          writeln(i,'-й елемент, рівний ',x[i]);
          k:=1;
        end;
    end;
  if k=0 then
    writeln('Немає таких елементів!');
end.

Алг
нач
   цел число элементов, позиция, максимум, минимум
   число элементов:=10
   целтаб a[1:число элементов]
   максимум:=-10000
   минимум:=10000
   нц для позиция от 1 до число элементов
       ввод a[позиция]
       если максимум<a[позиция] то максимум:=a[позиция]
       иначе если минимум>a[позиция] то минимум:=a[позиция]
             все
       все
   кц
   вывод "максимум=",максимум,", минимум=",минимум
кон

Тестовое решение:
>> 15:26:57 - Новая программа* - Выполнение начато
5
15
4
8
-2
7
2
9
11
10
максимум=15, минимум=-2
>> 15:27:49 - Новая программа* - Выполнение завершено