Возвести во вторую степень число m/n, если его целая часть больше числа k, где k остаток от деления m на 5. Нужно сделать через Pascal !

Предыдущий
вопрос Следующий
вопрос

program SquareFraction;

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

begin
writeln('Введите числитель m:');
readln(m);

writeln('Введите знаменатель n:');
readln(n);

writeln('Введите число k:');
readln(k);

fraction := m / n;
integerPart := Trunc(fraction);

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