Все информатики айтишники сюда срочно нужна помощь
var
x, z : integer;
begin
write('введите x=');
readln(x);
if x < 1 then z := x+3 else z := 4*x;
writeln('z=', z);
end.