Question

На паскале, желательно с объяснением

Answer 1

1. program task31138408;
2. const
3.  N = 15;
4. var
5.  arr: array[0..N] of real;
6.  isGeomPr: boolean;
7.  i, j: integer;
8.  tmp: real;
9. begin
10.  for i := 0 to N do
11.    begin
12.      Readln(tmp);
13.      if tmp = 0 then
14.        break
15.      else arr[i] := tmp
16.    end;
17.  for j := 1 to i - 2 do
18.    if (Power(arr[j], 2) = arr[j-1]*arr[j+1]) then
19.        isGeomPr := true
20.    else isGeomPr := false;
21.  if isGeomPr = true then
22.    Writeln('yes')
23.  else Writeln('no');  
24. end.