Составить программу для вычисления таблицы значений функции y=x^2+3(cos)^2*2x на отрезке [0;3] если Х на этом отрезке изменяется с шагом 0.2

var
  x,y: real;
begin
  x:=-0.2;
  while x<=3 do
  begin
    x:=x+0.2;
    writeln('при x = ',x,'  y = ',(x*x+3*cos(x)*cos(x)*2*x):6:2);
  end;
end.

var
  x,y,sum,pr: real;
  k: integer;
begin
  x:=-0.2;
  sum:=0; pr:=1;
  while x<=3 do
  begin
    x:=x+0.2;
    y:=(x*x+3*cos(2*x)*cos(2*x));
    writeln('при x = ',x,'  y = ',y:6:2);
    sum:=sum+y;
    pr:=pr*y;
    inc(k)
  end;
  writeln('Количество значений: ',k);
  writeln('Сумма: ',sum:6:3);
  writeln('Среднее арифметическое: ',sum/k:6:2);
  writeln('Произведение: ',pr:6:2);
  writeln('Среднее геометрическое: ',sqrt(sqrt(sqrt(sqrt(pr)))):6:2)
end.

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,sum: integer;
begin
  randomize;
  write('Введите размерность матрицы: ');
  readln(n);
  writeln('Матрица:');
  sum:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
      if i=j then sum:=sum+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Сумма элементов главной диагонали: ',sum);
  readln;
end.