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

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

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

if (mmdd>=1222) or (mmdd<=120) then writeln('Козерог');
if (mmdd>=121) and (mmdd<=219) then writeln('Водолей');
и т. д.