Напишите программу, которая позволяет ввести три вещественных числа и выводит на экран:разность целых частей первого

Var a,b,c:real;beginread(a,b,c);writeln(int(a)-int(b));writeln(cos(2*a*c):3:2);writeln(sqr(sin(b))+sqr(cos(c)):3:2);end.