если введенное с клавиатуры число (не равное нулю) положительно вычислить его квадрат, а если отрицательно - умножить его на 2

Var
a,b:Integer;
Begin
     Writeln('Введите число - '); Readln(a);
     if(a>0)  then b:=a*a else if (a<0) then b:=a*2;
     Writeln('Ответ: ',b);
End.