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

Question

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

Answer 1

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