program lab1_2;

{$APPTYPE CONSOLE}
uses
System.SysUtils;
{$R *.res}
var
  ValueA, ValueH, Sum, n:integer;
  isCorrect:Boolean;

begin
  sum := 1;
  n := 0;
  IsCorrect := False;
  repeat

      try
          Writeln('Enter A');
          Readln(ValueA);
          Writeln('Enter H');
          Readln(ValueH);
          IsCorrect := True;
      except
          Writeln('Please, enter integer value');
      end;
      if (ValueA < ValueH) or (ValueA < 0) or (ValueH < 0) then
      begin
          IsCorrect := False;
          Writeln('A and H must be positive and A grater H, try again');
      end;
  until (IsCorrect = true);
  while sum <= ValueA do
      begin
          n := n+1;
          Sum := Sum + ValueH;
      end;
  Writeln('First num grater A is ' , sum , '(' , n , ')');
end.