Составить программу. введите 7 чисел. найти сумму больше 3 и произведение меньше 3.

Program semchisel;
Var a,i,sum,proiz:integer;
Begin
   proiz:=1;   sum:=0;
   for i:=1 to 7 do
      begin
         read(a);
         if (a<3) then proiz:=proiz*a;
         if (a>3) then sum:=sum+a;
      end;
Writeln('proiz=', proiz, ' ', 'sum=',sum);
Readln;
End.

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.

а) Ученик отвечает у доски:Источник -ученикПриемник: учитель и остальные ученики.Информационный канал: звуковое пространство или окружающая материальная среда, передающая звуковые волны.б) Боря читает статью в журнале: Источник - авторПриемник БоряИнф. Канал - печатное издание\журнал.в) Оля слушает песню по радио.Источник - радиоведущий/исполнитель композиции (если песня)...Приемник: ОляИнф. Канал: Радиоволны с радиотрансляторами и радиоприемниками.

г) Гена говорит с мамой по телефону.Если разговор взаимный, то  Гена и его мама выступают поочередно источниками и приемниками.Инф канал: телефон.
д) Водитель автобуса объявляет остановку.Источник: водительПриемник: пассажирыИнф канал: система оповещения в автобусе.