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

Question

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

Answer 1

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.