Дано двухзначное число. Определить: кратна ли трем сумма его цифр?
(блок схема)

Объяснение:

Если вводится естественное двузначное число:

var n,s:integer;

begin

write('n = ');

readln(n);

s:=(n div 10)+(n mod 10);

writeln('s = ',s);

if s mod 3 = 0

then writeln('Сумма цифр кратна 3')

else writeln('Сумма цифр не кратна 3');

end.

Пример:

n = 56

s = 11

Сумма цифр не кратна 3

знаки той же арифметики, если эмоции- те же смайлики.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно