Проверьте программу ( Паскаль)

program _12;
var a,b,d:real;
begin
write('a=6.1');
read(a);
write('d=-2');
read(d);
b:=sqrt(a)/(d*d*d*d*d);
writeln('b=');
end.

вот задача..