var n:integer;
begin
readln (n);
if n mod 3=0
then writeln (1)
else writeln (0);
end.
результатом этого алгоритма могут быть числа 217 1218 112 ответ 3
0.125 Кб = 128 Байта