ввести 2 числа если первое кратно 4 а второе положительное, то уменьшить их произведение в 3 раза, в противном случае увеличить их произведение в 4 раза

другой пример. вводишь: 1 число = 3. 2 число - 5. программа проверяет 3 кратно 4, нет, считает по формуле 3*5*4= 70.

все, правильно)

я знаю, что правильно))

еще раз большое спасибо))

обращайся)

vara, b: integer;beginwriteln('vvedite 1 chislo:');readln(a);writeln('vvedite 2 chislo:');readln(b);if (a mod 4) = 0 then writeln('resultat ',a*b/3)else writeln('resultat ',a*b*4)end.