Ребята, помогите, очень важно.

Пользователь вводит целое число x. Если число положительное – выполняется расчёт x4, если отрицательное x3. Используется только одна подпрограмма-функция паскаль.

program p;

var x: integer;

begin

writeln("Введите число: ");

readln(x);

if x>0 then x:=x*4 else x:=x*3;

writeln("Ответ: ",x); readln; end.