Недавнее содержимое от Диман

Нужно написать функцию Плиз хелм ми гайс!:tehnari_ru_837: Нужно написать функцию! проверяющую массив на геометрическую прогрессию! Есть код который переделал с процедуры но он не пашет... Ругается на отсутствие мемо Function Checkgp:boolean; var i:integer; //q:Real; q обьявите глобально...