Даны четыре целых числа. Найти количество чисел кратных пяти. Составить программу в паскале.Заранее спасибо!!!

пожалуйста)

Только тут пять чисел, а не четыре

ой

сейчас поправлю

отредактировал

Простая реализация без массиваuses crt;var a, b, c, d, k: Integer;beginreadln(a, b, c, d);clrscr;if (a mod 5) = 0 then inc(k);if (b mod 5) = 0 then inc(k);if (c mod 5) = 0 then inc(k);if (d mod 5) = 0 then inc(k);writeln(k);end.