X, y: Double;

Begin

Y := Sin(X);

{Описание вещественных переменных X и Y]

{Присвоение переменной Y значения, возвращаемого функцией Sin}