var a: array [1..60] of real;