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

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