Проверить для четырехзначного числа признак делимости на 3.В случае делимости вывести на экран «делится», в случае не делимости – « не делится».

работает не только для 4-х значных

Объяснение:

program Hello;

var str : String;

   sum, i  : Integer;

begin

write('str = '); readln(str);

sum := 0;

for i := 1 to Length(str) do sum := sum + ord(str[i]);

if sum mod 3 = 0 then writeln('делится') else writeln('не делится');

end.