with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   H: Integer;
   A: Integer;
begin
   get(H);
   get(A);
   put((H + A - 1) / A, 0);
end main;