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

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.