С клавиатуры вводятся тричисла x,y,z. Выведите на экран те из них, которые меньше 31 и больше 23.

//Pascal
var x, y, z: integer;
begin
write('Введите x, y, z: '); readln(x, y, z);
if ((x < 31) and (x > 23)) then
  write(x, ' ');
if ((y < 31) and (y > 23)) then
  write(y, ' ');
if ((z < 31) and (z > 23)) then
  write(z, ' ');
end.