1.вычислить произведение квадратов n первых натуральных чисел.для любого n введенного с клвитуры.2 найти первое чётное натуральное числою куб которого больше числа x,введенного с клавитуры. 3.даны вещественные
числа b1, b10.(ввести с клавитуры).определите среднее арифметическое тех из них,которые кратны числу n, введенному с клавитуры.

1)var s,i,n,a: integer;

begin

  a:=1;

  s:=1;

  readln(n);

  for i:=1 to n do

    begin

      s:=s*sqr(a);

      a:=a+1;

    end;

  writeln(s);

end.

2)var a,i: integer;

         x: real;

begin

  a:=0;

  readln(x);

  repeat

  a:=a+2;

  if power(a,3)>x then writeln(a);

  until power(a,3)>x;

end.

Pascal:

1) Диапазоны не указаны, но для школы обычно хватает типа "Integer".

var a, b, i:LongInt;

begin

 write('Введите число n=>'); 

 readln(a);

 b:=1; 

 for i:=1 to a do

  b:=b*(i*i);

 write('Произведение=', b, '.'); 

readln end.