Помогите пожалуйста с программой (Delphi)

Даны действительные числа а1,а2....а26. Требуется домножить все члены последовательности а1,...а26 на квадрат ее наименьшего члена, если а1>=0, и на квадрат ее наибольшего члена, если a1