:')Дано целое число. Если оно является положительным, то удвоить его; в противном случае утроить. Вывести полученное число. ​

program  z1;

var a:integer;

begin

write('a = ');

readln(a);

if a > 0 then a:=a*2

else a:=a*3;

writeln('a = ',a)

end.

Объяснение:

Вводим число

Проверяем условие

Выполняем действие (в зависимости от условия)

Выводим число

a = 2

if a > 0:

a *= 2

else:

a *= 3

print(a)