на paskal.створити програму що множити число на 2, якщо воно парне і множить 3, якщо непарне​

Відповідь:

program MultiplyByTwoOrThree;

var

 num: integer;

begin

 write('ВВеди число: ');

 readln(num);

 if num mod 2 = 0 then

 begin

   num := num * 2;

 end

 else

 begin

   num := num * 3;

 end;

 writeln('Результат: ', num);

 readln;

end.

Пояснення: