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 для слабаков
