Если у тебя c нужно вводить, то смотри на первый скрин, а если c уже дано, то смотри на второй.
Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.
Таблицы - в прилагаемом файле.
12+22 = 111(3)
221-11 = 210(3)
21*2 = 112(3)
11:2 = 2(3)
Program n1;
var a: integer;
begin
readln(a);
writeln(a+1);
writeln(2*a);
writeln(a*a);
writeln(a*a*a);
writeln(sqrt(a));
end.
связь многим ко многим потому что разные типы под одним id