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

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