help pascal

Помогите пжл!
Задачи по поскале!
1) задание x и y.вычислить sin x sin y (здесь надо оформить диалоговый режим использовать формотированиый вывод данных)


2) и вот ещё z=|sin x2| (x во второй степени здесь мне надо возращающий синус числа)

 

Первая:

Code:

program zadaniye1;
var x,y:real;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
writeln('sin x=',sin(x):0:3);
writeln('sin y=',sin(y):0:3);
readln;
end.

Вторая:

Code:

program zadaniye2;
var x,z:real;
begin
writeln('x=');
readln(x);
z:=abs(sin(sqr(x)));
writeln('z=',z:0:3);
readln;
end.