Составьте программу для расчета функции y=4-tg(x), если х изменяется от 1 до 10 радиан с силой 1 радиан.- Pascal(Паскаль)

Uses
  crt;

Type
  mas = array [1 .. 10] of integer;

Var
  y: real;
  x: mas;
  i: integer;

procedure r(Var a: mas);
begin
  y := 4 - (sin(a[i]) / cos(a[i]));
end;

procedure vivod(Var a: mas);
begin
  writeln('y=4-tg(', x[i], ')=', y);
end;

procedure v(Var a: mas);
begin
  for i := 1 to 10 do
  begin
    a[i] := i;
    r(a);
    vivod(a);
  end;
end;

begin
  clrscr;
  v(x);

end.