Вычислить значения функции f(x)=2 cos x+3, при x={1; 4; 7,5; 20}. Вывести результаты в два столбца: в первом - значения x, во втором (программа Паскаль)

program proc_1;
function f (x: Real):Real;
begin
    f:=2*cos(x)+3
end;
procedure proc_f (x: Real; var fx: real);
begin
    fx:=2*cos(x)+3
end;
 var x, fx: real;
begin
  Writeln('с использованием процедуры:');
  Writeln('    x      f(x)');
  x:=1;   proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=4;   proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=7.5; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=20;  proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  Readln;
  Writeln('с использованием функции:');
  Writeln('    x   f(x)');
  Writeln(1:6, f (1):6:2);
  Writeln(4:6, f (4):6:2);
  Writeln(7.5:6:2, f (7.5):6:2);
  Writeln(20:6, f (20):6:2);
       Readln;
end.