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

program zz1;

var x, y, c : integer; / / вводим переменные целого типа

d:real; / / вводим переменную не целого типа для ответа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

d: = (x + y) / 2 * c; / / находим значение выражения по заданной формуле

/ / выводим ответ

write (' полученный ответ = ', d);

end.