program IncreaseByThree;varN: integer;beginwriteln('Введите число N:');readln(N);
if (N mod 2 = 0) thenN := N * 3;
writeln('Увеличенное число: ', N);end.
program IncreaseByThree;
var
N: integer;
begin
writeln('Введите число N:');
readln(N);
if (N mod 2 = 0) then
N := N * 3;
writeln('Увеличенное число: ', N);
end.