-Цитата от Димкоу CoOLeR 
Задание 4. Найдите сумму и разность чисел. Сделайте проверку
46,75 и 28,3125
Это тебе программу написать чтоли?
Ну если на паскале то:
Var a,b,c,d:Real;
Begin
a:=46,75;
b:=28,3125;
c:=a+b;
d:=a-b;
Writeln('CyMMa=',c,5,5);
Writeln('Pa3HoCTb=',d,5,5);
Readln
End.