Использовать mod и div. через ! написать программу, которая запрашивает у пользователя n целых чисел и выводит на экран сумму тех из них, которые кратны либо 5, либо 7, либо и 5 и 7 одновременно. не пользуй, : const, count. через паскаль!

Uses crt;vara,b,n,k:integer;beginwrite ('Введите n-');read (n);for a:=1 to n dobeginreadln (b);if (b mod 5=0) or (b mod 7=0) then k:=k+b;end;writeln (k);end.