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

var

N : integer;

begin

/ / Организовываем ввод

write ('Введите N ');

readln (N);

/ / Проверяем если N четное

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

/ / иначе выводим сообщение о том, что N нечетное

if N mod 2 = 0 then

begin

N : = N*3;

writeln ('Число N увеличенное в три раза = ', N);

end

else writeln ('Введенное значение числа N нечетное');

end.