program test;var x, y, c: integer; total: real;begin write('Enter x, y, c: '); readln(x, y, c); total:=x+y/2*c; writeln(x, '+', y, '/2*', c, '=', total);
readln;end.
program test;
var x, y, c: integer; total: real;
begin
write('Enter x, y, c: ');
readln(x, y, c);
total:=x+y/2*c;
writeln(x, '+', y, '/2*', c, '=', total);
readln;
end.