Прибор изображенный на рисунке в 1963 году изобрел дуглас энгельбарт, прообразом какого современного искусства является этот прибор?

Дуглас Энгельбарт известный как создатель первой компьютерной мыши.

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.

Const
  nmax = 99;

var
  i, n, k, s: integer;
  a: array[1..nmax] of integer;

begin
  Randomize;
  Write('Введите количество элементов массива (1-99)');
  Readln(n);
  Write('Введите число k ');
  Readln(k);
  Writeln('Исходный массив');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(98) + 1;
    Write(a[i]:3);
    if (a[i] mod k) = 0 then s := s + a[i]
  end;
  Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s)
end.

Тестовое решение:

Введите количество элементов массива (1-99)12
Введите число k 3
Исходный массив
 34 63 18 81 91 83 83 80 10 59 81 74
Сумма элементов, кратных 3 равна 243