Ответы и объяснения

2014-03-03T12:38:41+04:00
var a, b, y:real;
begin
Writeln('Формула функции - Y=sin(a+b/2)'); 
Writeln('Введите значение числа a');
Read(a);
Writeln('Введите значение числа b');
Read(b);
y:=sin(a+(b/2));
Writeln('Y=', y);
end.

Проверь, если есть в чём. Должно работать.