program pptest7;

  var
    r,
    r1,
    r2: real;
    i: integer;
    b: boolean;
    a: array [1 .. 10] of real;

  begin
  { simple operations }
    r1 := r1 + r2;
    r1 := r1 - r2;
    r1 := r1 / r2;
    r1 := r1 * r2;

    { constant assignments }
    r1 := 0.0;
    r1 := 0;
    r1 := 1;
    r1 := 1.234;
    r1 := 5.4e1;
    r1 := 1.234 * 4;

    { real comparisons }
    b := r1 = r2;
    b := r1 <> r2;
    b := r1 > r2;
    b := r1 < r2;
    b := r1 >= r2;
    b := r1 <= r2;

    { deeply nested operations }
    r := r + (r + (r + (r + (r + (r + (r + (r + (r + (r + r)))))))));

    { array adjustments }
    a[i] := 4.2;
    r1 := a[i + 4];

    { standard operations }
    i := round(1.501);
    i := round(r1);
    i := trunc(1.501);
    i := trunc(r1);
    r1 := abs(-2.43);
    r1 := abs(r1);
    r1 := sqr(r1)
  end { pptest7 }.