Даны описания:
type linia =array () of integer;
var x, y : linia ;

напиши программу, которая подсчитывает произведение последних пяти элементов переменной y.

// С циклом:

type Linia=array[1..7] of integer;

var

 x, y : Linia;

 Proizvedenie, i: integer;

begin

 Proizvedenie := 1;

 for i := 3 to 7 do

 begin

   Proizvedenie := Proizvedenie * y[i];

 end;

 WriteLn(Proizvedenie);

end.

// Без цикла

type Linia=array[1..7] of integer;

var

 x, y : Linia;

 Proizvedenie, i: integer;

begin

 Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];

 WriteLn(Proizvedenie);

end.