Дано целое число n.увеличить число в три раза если оно чётное.( записать на языке паскаля)

Uses crt;
var N:integer;
begin
WriteLn('Введите N');
Readln(N);
IF  Not Odd(N) then N:=N*3
else Writeln('Число нечетное');
WriteLn(N);
Readln;
End.