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