Оставьте на рисунке только устройства ввода​

мышь,клавиатуры,наушники,микрофон

вебка,джойстик,микрофон,мышь,клавиатура,сканер.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.