Написание программ на языке Паскаль.

Помогите пожалуйста решить такую задачу:

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень-отрицательные.

Спасибо заранее кто сможет решить)