Напишите программу для проверки два из трех чисел кратны 7 паскаль​

Question

Напишите программу для проверки два из трех чисел кратны 7 паскаль​

Answer 1

var a, b, c: integer;

begin

 Read(a, b, c);

 Write(Ord(a mod 7 = 0) + Ord(b mod 7 = 0) + Ord(c mod 7 = 0) = 2)

end.