program Laba1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  N,h0,i,k : integer ;
  x: array of integer;
  h: array of integer;
  Max,Xhmax:integer;
procedure Input ;
Var
   ArrayLength: integer;
   IsCorrect: boolean;
 Begin
    Repeat
         Writeln('Please,enter N and H,where H is the hight of tower 0 and N is a quantity of towers. ');
         Writeln('All the items must be integer');
         IsCorrect:=False;
         Try
            Write('Tower 0 [N,h0]:');
            Read(ArrayLength,h0);
            SetLength(x,ArrayLength+1);
            SetLength(h,ArrayLength+1);
            N:=ArrayLength;
            IsCorrect:=True;
         Except
            Writeln('Error.Try again');
         End;
    Until (IsCorrect) and (ArrayLength > 0) and (h0 > 0);
    Writeln('Please,enter x and h,where h is the hight of a tower and x is its situation');
    Writeln('They  must be positive and integer');
    For i := 1 to N do
    Repeat
       IsCorrect:=False;
       Try
          Write('x[',i,'],h[',i,']=');
          Read (x[i],h[i]);
          IsCorrect:=True;
       Except
          Writeln ('Error. Try again');
       End;
    Until (IsCorrect) and (h[i] > 0) and (x[i] > 0);
    i:=0;
 End;
Procedure Maximum(Var  Max,Xhmax: integer);
Begin
   Max := h[1];
   Xhmax := x[1];
   For i := 2 to N do
      If h[i]> Max then
      Begin
         Max := h[i];
         Xhmax := x[i];
      End;
      i:=0;
 End ;
Procedure OutPut( k: integer) ;
Begin
   k:=0;
   i:=1;
   If h0 < Max then
      While x[i] < Xhmax do
      Begin
         If h[i] < h[i+1] then { consideration of overlaying situation  }
            k:=k+1;
         i:=i+1;
         If (h[i] < h[i-1]) and (h[i] < h[i+1]) then  { the situation of being between two towers }
          k:=k;
      End;
    If h0 > Max Then
      repeat
         k:=k+1;
         i:=i+1
      until h[i] <= h[i+1] ;
      While  x[i] <= x[N] do
         Begin
           If h[i] < h[i+1] then
             k:=k+1;
           If h[i]-h[i+1] > 5 then { When one tower is much bigger than the next one ,Its overlaying }
              k:=k;
           i:=i+1;
         End;
    if h0 = Max Then
       While x[i] <= Xhmax do
          Begin
             If Max <> h [i] then {when two Max towers in a row are the same,its overlaying}
                k:=k+1;
             If h[i] < h[i+1] then
                Begin
                   k:=k+1;
                End;
             i:=i+1 ;
          End;
   writeln('There are ',k,' towers which you can see from tower0');
   readln ;
   readln ;
End;
Procedure Main;
Var
   k:integer;
   Begin
   InPut;
   OutPut(k);
   End;
Begin
   Main;
End.