Ответы и объяснения

2014-02-24T13:02:05+00:00
Var
 n:integer;
begin
 readln(n);
 if n mod 3 = 0 then
  writeln('Делится без остатка на 3')
 else
  writeln('Делится c остатком на 3')
end.