программы с циклом FOR (Тема 7) (1)

program Formula_P;

var
  x: integer;
  z: real;

begin
  z := 1;
  for x := 2 to 20 do
  begin
    z := z * (2 * x * sqrt(3 * x))
  end;
  Writeln(z, 'результат формулы')
end.