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

var

a,b: integer;

begin

 write('Введите a и b: ');

 readln(a,b);

 if a mod 2 = 0 then  

    writeln(a/4)

    else writeln(a * 3);

if b mod 2 = 0 then      

    writeln(a/4)

    else writeln(b * 3);

end.

//PascalABC.NET *****************************