program n4;

var
  x: integer;

begin
  write('Введите массу в золотниках: ');
  read(x);
  x := x div 96;
  writeln('Масса в фунтах = ', x);
  x := x div 40;
  writeln('Масса в пудах = ', x);
  x := x div 10;
  writeln('Масса в берковцах = ', x);
end.