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

Var
k,m,n:real;
begin
readln(m,n);
k:=m mod 5;
if (m div n)>k then
writeln( (m/n)*(m/n) );
end.