Информатика. 35баллов. Код в Паскале нужен.1-ые два

1 задание:

var z,z1,z2,y1,y2,x1,x2:real;

begin

 write('Введите x1: ');

 read(x1);

 write('Введите x2: ');

 read(x2);

 y1:=(3.5*абс(x1)-1)/(абс(x1)-3.5*power(x1,2));

 y1:=(3.5*абс(x2)-1)/(abs(x2)-3.5*power(x2,2));

 z1:=y1;

 z2:=y2;

 z:=z1+z1;

 writeln('Итог вычисления= ',z);

end.

2 задание:

var x,y,itog:real;

begin

 write('Введите x: ');

 read(x);

 write('Введите y: ');

 read(y);

 itog:=ln(power(x,2)+power(y,2))/sin(y);

 writeln('Результат вычисления= ',itog);

end.