program example;
var a,b,x,y,z:real;
begin
x:=2.8284E-3;
y:=4.1093;
z:=-7*sqrt(PI)/9.5;
...

Если до завтра есть время, то завтра допишу, если нет - извините...