Задача.

program sss;{  подсчитать произведение чисел от 1 до 8  }
     var  n, i,s: integer ;
     begin
      s:=1;
     for i:= 1 to 8 do begin
               s:=s*i;
               writeln('произведение',s);
                       end ;
         end.
program sss;{  подсчитать сумму чисел от 1 до 8  }
     var  n, i,s: integer ;
     begin
      s:=0;
     for i:= 1 to 8 do begin
               s:=s+i;
               writeln('сумм',s);
                       end ;
         end.

*  Найти произведение чисел делящихся на 2 от 1 до 10.

Program pr;

  var n:integer; P:real;

Begin

    p:=1;                  { начальное значение произведения }

  for n:=1 to 20 do

    if n mod 2=0 then p:=p*n;

  write('Произведение чисел, дел на 2 от 1 до 20 равно P=',p)

End.