Вычисление сумм с проверкой на чётность / нечётность

Ввести целое n и вычислить:

а) сумму нечётных чисел <= n;

б) сумму чётных чисел <= n;

в) сумму квадратов нечётных чисел <= n;

г) сумму квадратов чётных чисел <=n;

паскаль