Даны целые числа x, y, c. напишите программу которая находит значение выражения x+y/2c и выводит на экран монитора результат.

Program prog1;
var
x, y, c: integer;
S: real;
begin
readln(x, y, c);
S:=x+y/2c;
writeln('Значение выражения x+y/2c равно', S);
end.