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.
