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

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.