Помогите написать программу в паскале, которая. при введении даты рождения, выдает знак зодиака.

Переводи месяц и число в формат mmdd, далее тупо ветвлениями:

readln(mm,dd);
mmdd:=mm*100+dd;

if (mmdd>=1222) or (mmdd=121) and (mmdd