Смотри во вложении
---------------------------------------------------
Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.
Подставим значения каждого выражения:
1) x = 1
(1<3) И (1<2) - true (истина)
2) x = 2
(2 < 3) И (2 < 2) - false (ложь)
3) x = 3
(3 < 3) И (3 <2) - false (ложь)
4) x = 4
(4 < 3 ) И (4 < 2) - false (ложь)