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

var n:integer;beginwrite('n = ');readln(n);if n mod 2 = 0 then n:=3*n else n:=2*n;writeln('n = ',n);end.Пример:n = 7n = 14