Напишите задачи в Паскале

задача1

{вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000]

Вывести на экран их произведение.}

задача2

{вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000]

вывести на экран наибольшее из них}

задача 3

{вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000]

Вывести на экран номер наименьшего из них.}

1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0 ... 200}

var

i, n:integer;

a:longint;

p:real;

begin

p:=1;

Repeat

readln (n) ;

Until (n>=0) and (n<=200) ;

for i:=1 to n do

begin

readln (a) ;

p:=p*a;

end;

writeln (p) ;

end.

2)

var

i, n:integer;

a, max:longint;

begin

Repeat

readln (n) ;

Until (n>=0) and (n<=200) ;

for i:=1 to n do

begin

readln (a) ;

if a>max then

max:=a;

end;

writeln (max) ;

end.

3)

var

i, n:integer;

a, min:longint;

begin

Repeat

readln (n) ;

Until (n>=0) and (n<=200) ;

for i:=1 to n do

begin

readln (a) ;

if a
min:=a;

end;

writeln (min) ;

end.

Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри

var

a : array [1 ... 200] of longint;

p, max : integer;

n, i, j : integer;

begin

readln (n) ;

p : = 1; / / 1

max : = 0; / / 2 3

for i : = 1 to n do

begin

readln (a[i]) ;

p : = p * a[i]; / / 1

if a[i] > max then / / 2 3

begin / / 2 3

max : = a[i]; / / 2 3

j : = i; / / 3

end; / / 2 3

end;

writeln (p) ; / / 1

writeln (max) ; / / 2

writeln (j) ; / / 3

end.