Составьте программу в Паскаль АВС Для двух указанных с клавиатуры числа выполнить следующее: чётные числа умножить на 3, нечётные разделить на 4. Вид вывода должен быть:(например)
Было Стало
2 6

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

program MultiplyOrDivide;
var
num1, num2, result1, result2: integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);

if num1 mod 2 = 0 then
result1 := num1 * 3
else
result1 := num1 div 4;

if num2 mod 2 = 0 then
result2 := num2 * 3
else
result2 := num2 div 4;

writeln('Было Стало');
writeln(num1, ' ', result1);
writeln(num2, ' ', result2);
end.