Молю! написать полные программы. язык: pascal

1. какое из следующих утверждений точнее всего раскрывает смысл понятия «информация» с обыденной точки зрения?

в) сведения об окружающем мире и протекающих в нем процессах, воспринимаемые человеком непосредственно или с специальных устройств

2. информацию, не зависящую от личного мнения или суждения, называют:

в) объективной

3.информацию, существенную и важную в настоящий момент называют:

б) актуальной

4. по способу восприятия человеком различают следующие виды информации:

г) визуальную, аудиальную, тактильную, обонятельную, вкусовую  

5. известно, что наибольший объём информации здоровый человек получает при :

б) органов зрения

Крч вот на паскале, на си не могу, сорь program llllll; var a: array [-1000..1000] of integer; n, i, b : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               readln(a[i]);       for i : = 0 to (n) do               b : = b+ a[i];       write('это сумма ');       writeln(b); // это сумма.       b: =0;       for i : = 1 to (n) do       begin               if a[i] = 0 then                       b : = b+1       end;       write('это количество нулей ');       writeln(b) ; // это количество нулей       b: = -1001;       for i : = 1 to (n) do       begin               if a[i] > b then                       b : = a[i]       end;       write('это максимальное число ');       writeln(b); // это максимальное число               b: = 1001;       for i : = 1 to (n) do       begin               if a[i] < b then                       b : = a[i]       end;       write('это минимальное число ');       writeln(b) // это минимальное число end.