напишите программу для выполнения этого примера для паскаля абц

Все в скриншоте,если что-то не так поправьте

Program n1;

Var x,y,z,a: real;

Begin

Writeln ('vvedite x,y,z');

Read (x,y,z);

a:=5*((2*x-z)/(3+y*y));

Writeln ('otvet: ', a:5:3);

End.