Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

var a: Integer;beginwriteln('Введите число');readln(a);if a>0 then a:=a*a;if a<0 then a:=a-2;if a=0 then a:=10;writeln('Полученное число: ',a);end.