Pascal ABC (разветвление)

Даны действительные числа a, b, c, d. Если a<=b<=c<=d, то каждое число заменить наибольшим из них; если a>b>c>d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.

я в паскеле вообще не шарю, помогите, у меня зачёт по ней