СТРУКТУРНЫЙ ТИП ДАННЫХ "МАССИВ"

[Chudo4258]

Обращайте вниманеи на сообщения выше, они уже давно были отредактированны.
Вот так попробуй:

program M_7;
uses crt;
var i,n: integer;
Y: array [1..7]of real;
sum,pr:real;
begin clrscr;
pr:= 1;
sum:= 0;
write('n= ') ;
readln(n);
for i:= 1 to n do
begin
write('y[',i,']= ');
readln(y[i]);
if i mod 2 <>0 then sum:= sum+Y[i]
else pr:= pr*Y[i];
end;
WriteLn(sum,'___',pr);
ReadLn;
end.

[Urz-3]

ааа все, понял спасибо. = )