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

Question

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

Answer 1

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