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

procedure hoge is
 h: integer;
 a: integer;
begin
 get(h);
 get(a);
 put((h+a-1)/a);
end hoge;