3 (а)

var x: integer;

var y: real;

begin

   write ('Введите число: ');

   readln (x);

   if x>=0 then

       y:=2*x;

   else

       y;=x/2;

end.

4

Там данные вводит пользователь, и в зависимости от того, какой х он введёт, такой будет результат

Если пользователь ввёл х больше 0, тогда результатом будет это число умножить на 2.