Определить кратно ли число 3 в Pascal, Если не кратно то умножить ** 10, если кратно то...

Question

Определить кратно ли число 3 в Pascal, Если не кратно то умножить на 10, если кратно то разделить на 3

Answer 1

Program n1;
var a: integer;
begin
readln(a);
if a mod 3=0 then writeln(a/3)
else writeln(a*10)
end.