Задано вещественное число К. Вычислите разность целой и дробной части числа К

vark,raznost: real;beginwrite('Введите К ');readln(k);writeln('Целая часть - ', int(k));writeln('Дробная часть - ', frac(k));raznost:= int(k)-frac(k);writeln('Результат ',raznost );end.

pascalABC

var k,raznost: real;beginwrite('Введите К ');readln(k);writeln('Целая часть - ', int(k));writeln('Дробная часть - ', frac(k));raznost:= int(k)-frac(k);writeln('Результат ',raznost );end.