Вычислить значение выражения z, использя подпрограмму-функцию v(x,y). a,b задаются с клавиатуры. z= v(a,b) / (v(a+3,b)+a(в квадрате))и все в квадрате v(x,y)=cosx+e(в степени y) — Pascal(Паскаль)

uses crt;

function V(x, y: real): real;
begin
  V := cos(x) + exp(y);
end;

var
  a, b, z: real;

begin
  clrscr;
  writeln('Введите a,b:');
  readln(a, b);
  z := V(a, b) / (V(a + 3, b) + a * a);
  write('Z=', z:0:3);
  readln

end.