Решить 2 задачи на фото. Програмиы писать в паскаль уже с вставленными значениями.

var a, x, y: real;

begin

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

   readln(a);

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

   readln(x);

   y := 2 / sqr((a - x));

   writeln('y = ', y);

end.

var n: real;

begin

   write('Введите число: ');

   readln(n);

   if (n > 4) and (n < 8) then

       n := -n;

   writeln('Число: ', n);

end.