Решите задание:
Var s, k: integer;
begin
readln (s);
readln (k);
if s div 3 = k then writeln ('ДА')
else writeln ('НЕТ')
end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел:
(9, 3); (12, 8); (4, 1); (7, 3); (6, 2); (10, 2); (24, 7); (15, 4); (8,1).