составить алгеритм удвоения нечетного числа и увеличения в три раза четного

Вопрос школьника по предмету Информатика

составить алгеритм удвоения нечетного числа и увеличения в три раза четного

Ответ учителя по предмету Информатика

var n:integer;

begin

write(‘n = ‘);

readln(n);

if n mod 2 = 0

 then n:=3*n else n:=2*n;

writeln(‘n = ‘,n);

end.

Пример:

n = 7

n = 14