Question

задать в блоке var массив из 30 вещественных чисел Pascal

Answer 1

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