program SquareFraction;

var
m, n, k, integerPart: integer;
fraction: real;

begin
writeln${}^{\prime }Введитечислительm{:}^{\prime }$;
readln$m$;

writeln${}^{\prime }Введитезнаменательn{:}^{\prime }$;
readln$n$;

writeln${}^{\prime }Введитечислоk{:}^{\prime }$;
readln$k$;

fraction := m / n;
integerPart := Trunc$fraction$;

if integerPart > k then
begin
fraction := fraction * fraction;
writeln${}^{\prime }Результатвозведениявовторуюстепеньчисл{а}^{\prime },m{,}^{\prime }{/}^{\prime },n{,}^{\prime }раве{н}^{\prime },fraction$;
end
else
begin
writeln${}^{\prime }Целаячастьдробинебольшечислаk{.}^{\prime }$;
end;
end.