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

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

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