Вычислить сторону ромба, если известны две его диагонали (программа Паскаль)

Program z2;
Var a, d1, d2: real;
Begin
Writeln (‘Введи диагонали’);
Readln (d1, d2);
a:= sqrt(sqr(d1/2)+ sqr(d2/2));
Writeln (‘a=’,a);
Readln;
End.