Program P_1;
Var a,b,c,d: real;
begin
write('введите a='); readln(a);
write('введите b='); readln(b);
write('введите c='); readln(c);
d:=(a+b)/c;
writeln('d=',d);
end.
