Пожалуйста посчитайте пожалуйста!Практика на дом ,не получается ничего(

1)
Var
   x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x<>0)and(y+1/(sqrt(x*x+10)<>0) then
   Begin
   z:=(x+(2+y)/(x*x))/(y+1/(sqrt(x*x+10)));
   WriteLn('z = ',z);
   End
else
   WriteLn('Ошибка: на ноль делить нельзя!');
End.

2)Var A,B,C:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
B:=A mod 10;
C:=A div 10 mod 10;
A:=A div 100;
WriteLn('А: ',A);
WriteLn('Б: ',B);
WriteLn('В: ',C);
WriteLn('Г: ',A+B+C);
WriteLn('Д: ',A*B*C);
End.

3)
Var
   A,N:real;
Begin
Write('A = ');ReadLn(A);
Write('N = ');ReadLn(N);
WriteLn(power(A,1/N));
End.

4)
Var
   x:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(x);
WriteLn('n = ',x mod 10,x div 10)
End.