Var a,x,c,k: real;

Begin

write('введите число а :');

readln(a);

write('введите число x :');

readln(x);

write('введите число c :');

readln(c);

k := (a/(x*x-c))*(a*a*a/(x*x*x*x-c))*(a*a*a*a/(x*x*x*x*x*x-c));

write('k =',k);

End.

upd: сокращать и юзать sqr для слабаков