Программа

Program Pilshikov_5_44 (input,output);
{ Дано 200 вещественных чисел.
  Определить сколько из них больше
  своих соседей. }
Var  x1,x2,x3:real;
     i,Quantity:integer;
BEGIN
  Write('Введите число ');
  Readln(x1);
  Write('Введите число ');
  Readln(x2);
  Quantity:=0;
  for i:=2 to 19 do
    Begin
      Write('Введите число ');
      Readln(x3);
      if (x1<x2) and (x2>x3) then Quantity:=Quantity+1;
      x1:=x2;
      x2:=x3
    End;
  Writeln(Quantity)
END.