выучить наизусть на исправление отметки

 ВЫУЧИТЬ НАИЗУСТЬ

 //фам 

//задача нахождение суммы элементов массива

   Var s: array[1..5] of integer;
   i,sum:integer;

 begin
sum :=0 ;

   For i:=1 to 5 do readln (s[i]);
   for i:=1 to 5 do sum:=sum+ s[i];
    write(sum, 'сумма ');
 end.

//фам 
//задача нахождение произведения элементов массива
   Var s: array[1..5] of integer;
   i,sum:integer;
 begin
pr :=1 ;
   For i:=1 to 5 do readln (s[i]);
   for i:=1 to 5 do pr:=pr*s[i];
    write(pr, 'произведение ');
 end.
//фам

//задача присваивает каждому элементу значение 7
Var a: array[1..5] of integer;  i:integer;
begin
 For i:=1 to 5 do   read (a[i]);
 For i:=1 to 5 do  a[i]:=7 ;
 For i:=1 to 5 do write(a[i] , ' ,');
  end.

//фам

//Вычислить сколько чисел равны 7
Var a: array[1..5] of integer;
  i,r:integer;
begin
 For i:=1 to 5 do   read (a[i]);
 For i:=1 to 5 do  if a[i]=7  then r:= r+1;
  write(r , 'числа =7 ');
  end.