Вычислить значение выражения - Turbo Pascal (33545)

Формулировка задачи:

i=a*sin(x+y)- b*cos(x+y)/sqrt(4*x*y), при значениях a=10;b=6,3;y=0,35; x принимает значения 0,6; 0,51; 0,42. Ничего не могу сделать, решил написать вам.

Решение задачи: «Вычислить значение выражения»

Листинг программы

Program abc;
var a,b,y,x,i :real;
begin
a:=10;
y:=0.35;
x:=0.6;
i:=a*sin(x+y)-b*cos(x+y)/sqrt(4*x*y);
Write('i = ',i :3:1);
ReadLn;
end.

Объяснение кода листинга программы

Создается программа abc с использованием языка Turbo Pascal.
В программе объявляются переменные: a, b, y, x, i типа real.
Значение переменной a присваивается 10.
Значение переменной y присваивается 0.35.
Значение переменной x присваивается 0.6.
Значение переменной i присваивается результату умножения переменной a на sin(x+y) и вычитания произведения переменной b на cos(x+y) с использованием функции sqrt(4xy).
Выводится значение переменной i с точностью до 3 знаков после запятой с помощью функции Write.
С помощью функции ReadLn происходит чтение данных из стандартного ввода.