{ project2.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Project2;

var
  A, R: Integer;

begin
  Write('Введите целое число =>_');
  ReadLn(A);
  R := A mod 3
  if R = 0 then
    WriteLn('Число делится на 3 нацело.');
  else
    WriteLn('Число не делится на 3 нацело. Остаток равен ', R);
  ReadLn;
end.