Напишите программу простенькую по решению задачи матанатам два действия (a+b)/c а=236 b=29 c=46 найти d-

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.