var x: integer; begin readln(x); writeln('y = ', ((x >= -2) and (x < 2) ? sqr(x) : 4)); end. ========================= var x, y: integer; begin readln(x, y); writeln('z = ', (((x >= -2) and (x < 2)) and ((y >= 0) and (y <= 6)) ? sqr(x) + sqr(y) * y : x * y + abs(x - y))); end. ======================== var x: real; begin readln(x); writeln('y = ', (x <= 0 ? 0 : (x <= 1 ? x : sqr(sqr(x))))); end. ======================== var x: real; begin readln(x); writeln('y = ', (x <= 0 ? 0 / 1 : (x <= 1 ? sqr(x) - x : (sqr(x) - sin(pi * sqr(x)))))); end. ======================== var x: array [1..3] of integer; i: byte; begin for i := 1 to 3 do readln(x[i]); for i := 1 to 3 do if ((x[i] > 1) and (x[i] < 3)) then writeln(x[i]); end. ======================== var x: array [1..3] of integer; i: byte; begin for i := 1 to 3 do readln(x[i]); for i := 1 to 3 do if ((x[i] > 1) and (x[i] < 3)) then writeln(x[i]); end. ======================== var a, b, c: real; begin readln(a, b, c); writeln((a + b > c) and (a + c > b) and (b + c > a)); end. ======================== var a, b, c: real; begin readln(a, b, c); if (sqr(b) - 4 * a * c < 0) then writeln('Нет решений') else if (sqr(b) - 4 * a * c = 0) then writeln('x = ', (-1 * b) / (2 * a)) else writeln('x1 = ', (-1 * b + sqrt(sqr(b) - 4 * a * c)) / (2 * a), #13, 'x2 = ', (-1 * b - sqrt(sqr(b) - 4 * a * c)) / (2 * a)); end.