Ответ: Проверенно

Этот код преднозначен для решения этого примера 'если a>b, то , иначе p^2=z'

x-3/x^2-2x+5

Program jnj;

var

 a, b: real;

 bool: boolean;

begin

 writeln('Введите значение a:');

 readln(a);

 writeln('Введите значение b:');

 readln(b);

 begin

   if a > b then

     writeln(a - 3 / sqr(a) - 2*a + 5) end;

 begin

   if a <= b then

     writeln('z = ', sqr(b));

 end;

end.

program jnj;

Этот код преднозначен для решения корень y+x=z

var

 y, x: real;

begin

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

 readln(y);

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

 readln(x);

 writeln('z = ', sqrt(y + x), ';');

end.

Оба кода разные, поэтому вводить их нужно поочередно