Задано вещественное число K.Вычислите разность целой и дробной K. (делать задание надо через pascal ABC)
Var K; begin readln(K); writeln(floor(K)-frac(K)) end.