Надо составить программу по паскалю) составить программу проверяющую утверждения, что сумма цифр введенного вами числа делится на 5.

Var
 n:intger;
begin
 readln(n);
 if n mod 5 = 0 then
  writeln('Число делится на 5 без остатка')
 else
  writeln('Число делится на 5 c остатком')
end.