How to get real numbers?

Question

Pascal

Error: Program1.pas(15) : Cannot convert type function(a: real;b: real): real to real
Conditions of assignment: Real numbers x, y are given. Get h (x, y) + h2 (xy), xy), h4 (xy, x+y) + h (1, 1), where h:=(a/1+sqr(a))+(b/ 1+sqr(a))-((ab)*sqr(ab));

function h (a,b:real):real;
begin
h:=(a/1+sqr(a))+(b/1+sqr(a))-((a-b)*sqr(a-b));
end;

var x,y,k:real;

begin
read(x,y);
write(h(x,y)+ sqr(h) *(x-y), x*y);
end.

What am I doing wrong?

Answer 1

function h (a,b:real):real;
begin
result:=(a/1+sqr(a))+(b/1+sqr(a))-((a-b)*sqr(a-b));
end;