На языке программирования pascal нужно написать код , которому пользователь вводит число n и затем n чисел и программа должна посчитать произведение этих чисел.

program raf105;

var n,i,pro: integer;

begin

write('n = ');

readln(n);

pro: = 1;

for i: =1 to n do

begin

  write(i,' ');

  pro: = pro * i;

end;

writeln;

writeln('произведение: ',pro);

end.

pascalabc 3.4.2

Program time; var  a, b, c, middle, min, max: integer; begin  readln(a, b, c);   if (a > b) then      max : = a      else max : = b;     if (max < c) then      max : = c;     if (a < b) then      min : = a      else        min : = b;     if(c < min) then      min : = c;       middle : = a + b + c - min -max;       writeln('максимальное: ',max,' ' ,'минимальное: ',min, ' ','среднее: ',middle); end.

Cls a: input n if n < 1 or int(n) < > n or n > 1000 then goto a dim a(n) h=30000 for i = 1 to n b: input a(n) if a(n) < 1 or int(a(n)) < > a(n) or a(n) > 30000 then goto b if int ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) and a(n) < h then h = a(n) next i print h end или: n -  количество чисел i - цикловая переменная a   - натурально число min   -  минимальное число, оканчивающееся на 4 язык програмирования: паскаль var n,i,a,min: integer; begin readln(n); min : = 30001; for i : = 1 to n do begin readln(a); if (a mod 10 = 4) and (a < min) then min : = a; end; writeln(min) end.