Массивы

[1Dima]

Исправте скрипт пожалуйста, буду благодарен))

Створити і вивести на екран масив кожен елемент якого обчислюється за формулою а:=1-2і. Скласти прогаму знаходження добутку всіх елемнтів масиву більших 1 або вивести на екран повідомлення, що таких елементів у масиві немає.Користувач сам задає кількість елементів.

Uses
SysUtils;

Const n=10;
Var a:array [1..n] of real;
i:integer;
dob: real;
e:Boolean;
begin
writeln ('vvedit elementu masuvy: ');
for i:=1 to n do
begin
write ('a[',i,']=');
a[i]:=(1-2*i);
readln;
end;
dob:=1;
e:= false;
for i:=1 to n do if a[i]> then
begin
write (a[i]:5:2);
dob:= dob*a[i];
e:= true;
end;
if not e then writeln ('takuh elemenyiv u masuvi nemae!');
writeln ('dob=',dob:5);
readln
end.

[Летучий_СкилетиК]

Пишите по русски.

if a[i]> then

здесь ошибка

[1Dima]

спасибо вот переделал код, все работает на ура))
program form1_2i;

{$APPTYPE CONSOLE}

uses
SysUtils;

Const n=5;
Var a:array [1..n] of real;
i:integer;
dob: real;
e:Boolean;
begin
for i:=1 to n do
begin
write ('a[',i,']=');
a[i]:=(1-2*i);
writeln(a[i]:1:0);
end;
dob:=1;
e:= false;
for i:=1 to n do if a[i]>1 then
begin
write (a[i]:5:0);
dob:=dob*a[i];
e:= true;
end;
if not e then writeln ('takuh elemenyiv u masuvi nemae!');
writeln (' dob=',dob:5:0);
readln
end.