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

Ответ:

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.

Объяснение:

Вводим число

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

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

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