Вычислить и вывести произведение квадратов чисел натурального ряда от 3 до n (паскаль) !

var

  res : int64;

  i, n : integer;

begin

  res : = 1;

  for i : = 3 to n do

    res : = res * sqr (i);

  writeln (res);

end.

1.  program a1; const n=20; var i,a: integer; o: array[1..n] of integer; begin a: =0; for i: =1 to n do begin readln(o[i]); if o[i]< 0 then a: =a+o[i]; end; writeln(a); end.2.program a1; const n=20; vari,a: integer; o: array[1..n] of integer; begina: =0; for i: =1 to n do  readln(o[i]); a: =o[n]; for i: =n-1 downto 1 do  o[i+1]: =o[i]; o[1]: =a; for i: =1 to n do   write(' ',o[i],' '); end.3.program a1; const n=20; vari,a: integer; o: array[1..n] of integer; p: array[1..n] of integer; m: array[1..n] of integer; beginfor i: =1 to n do beginreadln(o[i]); if o[i]> 0 then p[i]: =o[i]; if o[i]< 0 then m[i]: =o[i]; end; for i: =1 to n do  write(' ',o[i],' '); writeln; for i: =1 to n doif p[i]< > 0 thenwrite(' ',p[i],' '); writeln; for i: =1 to n do   if m[i]< > 0 thenwrite(' ',m[i],' '); writeln; end.

Var n : integer; function factorize(n : integer): integer; var d : integer; begin   d : = 2;   while d * d < = n do begin     if n mod d = 0 then begin       write(d, '*');       factorize(n div d);       exit;     end;     d += 1;   end;   if n > 1 then write(n); end; begin   writeln('введите натуральное число: ');   readln(n);   factorize(n); end.