var
  strnum : string;
  i, n, carry : integer;
begin
  strnum := '324587348123462834876945698439561293469213469465345';

  carry := 0;
  for i := 1 to length(strnum) do
  begin
    n := ord(strnum[i]) - ord('0'); {переводим символ в число}
    n := n + carry * 10; {если на предыдущем шаге был остаток, добавляем его к числу}
    write(n div 7); {просто для отладки, выводит результат деления}
    carry := n mod 7;
  end;
  writeln;
  writeln('остаток ', carry);
end.