Доказать равносильность двух данных формул u=(x|y-> z)\/(x-> z) b=(x-> y)\/z

Например так: var a,n: integer; begin writeln('введите кол-во чисел'); readln(n); writeln('введите сами числа'); for n: = 1 to n do       begin       read(a);       if a mod 2 = 0 then writeln(a,' чётное')       else writeln(a,' нечётное')       end; end. пример ввода-вывода: введите кол-во чисел 4 введите сами числа 1 2 3 4 1 нечётное 2 чётное 3 нечётное 4 чётное вообще, чётность определяется по остатку деления на два: остаток равен нулю - значит число чётное, единице - нечётное.

Var s: real; n: integer; begin //первый способ s: =0; for n: = 1 to 50 do       s: =s+1/n; writeln('s = ',s); //второй способ s: =0; n: =0; repeat n: =n+1; s: =s+1/n; until n = 50; writeln('s = ',s); //третий способ s: =0; n: =0; while n< > 50 do     begin     n: =n+1;     s: =s+1/n;     end; writeln('s = ',s); end. var x: real; begin x: =-3; repeat writeln(x: 4: 1,'    '*x*x-2)/4): 6: 3); x: =x+0.2; until x> 3; end. var a: real; i,k: integer; begin k: =0; writeln('введите 10 чисел'); for i: = 1 to 10 do       begin       read(a);       if a< 0 then k: =k+1;       end; writeln('кол-во отрицательных: ',k); end.