Проблема Pascal ABC программирование

[tomate]

Здрасьте! такая пробелма мне училка дала вот этот пример:

y= |x-1| + sin(<==в квадрате!)x
воот...

Program Misha;
Var x,y:real;
Begin
WriteLn('Введите переменную x,y');
Read(x,y);
y:=abs(x-1)+SIN(x);
WriteLn('Переменная будет равна y')
End.

программа начинается,я ввожу 2 значения и мне пишет:
Переменная будет равна y
и не находит решение(((не подставляет числа в формулу *(((((((((((((
что же делать то?(надо составить

[tomate]

ааа точно
ещё не могу вот тут

y:=abs(x-1)+SIN(x);


написать синус в квадрате!!! ((((((((((
пишу
y:=abs(x-1)+SIN^2(x);


он отвечет:
функция sin с параметрами указанных типов не найдена((

[ROMA2PVT]

sqr(sin(тут число))

[ROMA2PVT]

и y не вводится

[tomate]

Program Misha;
Var x,y:real;
Begin
WriteLn('Введите переменную x,y');
Read(x,y);
y:=abs(x-1)+ sqr(sin 2)(x);
WriteLn('переменная будет равна y')
End.



ОШИБКА: НЕВЕРНОЕ ВЫРАЖЕНИЕ
(((

напишите пожалуйста поностю как должно выглядеть и объясните почему

[ROMA2PVT]

я вроди по русски написал.из readln у убери.и sqr(sin(x))

[fenix-elite]

WriteLn('переменная будет равна y')

А где тут вывод переменной??!

[ROMA2PVT]

ох да.вывод не заметил.writeln('Y:=',y)

[tomate]

Program Misha;
Var x,y:real;
Begin
WriteLn('Введите переменную x');
Read(x);
y:=abs(x-1)+sqr(sin(x));
WriteLn('переменная будет равна y')
End.



так?::

и всё равно!!
он пишет вот что:
Введите переменную x
я ввёл -4
и он отвечает:
переменная будет равна y


почему он не решает??

[tomate]

блииин((
да я зуапутался вовсе(((((



Program Misha;
Var x,y:real;
Begin
WriteLn('Ââåäèòå ïåðåìåííóþ x');
WriteLn('Y:=',y)
Read(x);
y:=abs(x-1)+sqr(sin(x));
WriteLn('ïåðåìåííàÿ áóäåò ðàâíà y')
End.


да как мне написать?!
куда чо вставлять?(я вообще сбился блин((