С клавиатуры вводится число. Если оно четное, то его нужно удвоить, а если нечетное - утроить. В паскале.

Предыдущий
вопрос Следующий
вопрос

program DoubleOrTriple;
var
num: integer;
begin
writeln('Введите число:');
readln(num);

if num mod 2 = 0 then // проверяем на четность
writeln('Результат: ', num 2)
else
writeln('Результат: ', num 3);
end.