program ExpressionValue;
varx, y, c: integer;result: real;
beginwrite('Enter the value of x: ');readln(x);
write('Enter the value of y: ');readln(y);
write('Enter the value of c: ');readln(c);
result := x + y / (2 * c);
writeln('The value of the expression x + y / (2 * c) is: ', result:0:2);end.
program ExpressionValue;
var
x, y, c: integer;
result: real;
begin
write('Enter the value of x: ');
readln(x);
write('Enter the value of y: ');
readln(y);
write('Enter the value of c: ');
readln(c);
result := x + y / (2 * c);
writeln('The value of the expression x + y / (2 * c) is: ', result:0:2);
end.