Напишите задачи в Паскале задача1 {вводится целое число n от [0..200]. Затеи вводится n целых чисел от [0..1000000] Вывести на экран их произведение.} задача2 {вводится целое число n от [0..200]. Затеи вводится n целых чисел о...

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

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