Записать программу которая по двум введеным числам находит сумму дробных частей и сумму целых частей. на языке ПАСКАЛЕ

var a,b,c,d:real; begin readln(a,b);   c:=frac(a)+frac(b);   d:=(a-frac(a))+(b-frac(b));  writeln(c);  writeln(d);  end.