СРОЧНО.
Программа в паскале:Дано 2 числа. Если их произведение кратно 5-ти, то у множить на 10, если нет - умножить на 4.

Program n1;var a,b: integer;beginreadln(a,b);if(a*b mod 5=0) then writeln(a*b*10)else writeln(a*b*4); end.