1. известно, что здоровый человек приблизительно 80% всей информации получает с органов зрения, 10% с органов слуха, 5, 3 и 2 % приходятся соответственно на органы обоняния, осознания и вкуса. дополните соответствующими подписями круговую диаграмму.

часть схемы, информацию - канал.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.