Укажите устройство вывода информации клавиатура; монитор; мышь: микрофон; сканер

монитор- информацию ты можешь видеть своими глазами. 

A) магжвбедзикл s: =0;                                           //м for i : = 1 to n do     //агж begin                                        //в read(x);                   //б if x > 0 then                  //едз s : = s + x;                 //и end;                                           //к write(s);                               //л

Program massiv2; type   mas = array [1 .. 100] of integer; var   a: mas;   i, n, min, max, b: integer; begin   write('n=');   readln(n);   for i : = 1 to n do   begin       write('a[', i, ']=');       readln(a[i]);   end;   max : = a[1]; min : = a[1];   for i : = 1 to n do   begin       if a[i] > max then           max : = a[i];       if a[i] < min then           min : = a[i];   end;   b : = max - min;   writeln(b);   writeln;   readln; end.