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

1)Var   x,y,z:real;BeginWrite('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);   Endelse   WriteLn('Ошибка: на ноль делить нельзя!');End.2)Var A,B,C:integer;BeginWriteLn('Введите трёхзначное число');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;BeginWrite('A = ');ReadLn(A);Write('N = ');ReadLn(N);WriteLn(power(A,1/N));End.4)Var   x:integer;BeginWriteLn('Введите трёхзначное число');ReadLn(x);WriteLn('n = ',x mod 10,x div 10)End.