program name;
uses crt;
var a,b,c,d: real;
begin
clrscr;
writeln('Введите три дробных числа');
readln(a,b,c);
d:=a+b+c;
write('Cумма этих чисел: ',d:3:2);
readln;
end.