Все информатики айтишники сюда срочно нужна помощь

Question

Все информатики айтишники сюда срочно нужна помощь

---

Answer 1

var

   x, z : integer;

   

begin

   write('введите x=');

   readln(x);

   if x < 1 then z := x+3 else z := 4*x;

   writeln('z=', z);

end.