Надо составить программу по паскалю) составить программу проверяющую утверждения, что сумма цифр введенного вами числа делится на 5.
Var n:intger; begin readln(n); if n mod 5 = 0 then writeln('Число делится на 5 без остатка') else writeln('Число делится на 5 c остатком') end.