Составить программу в паскале по выводу знака зодиака

  var     d,m: byte; begin write('введите день: '); readln(d); write('введите месяц: '); readln(m); case m of 3: if d< 21 then write('рыбы')   else write('овен'); 4: if d< 21 then write('овен')   else write('телец'); 5: if d< 22 then write('телец')   else write('близнецы'); 6: if d< 22 then write('близнецы')   else write('рак'); 7: if d< 23 then write('рак')   else write('леа'); 8: if d< 24 then write('леа')   else write('дева'); 9: if d< 24 then write('дева')   else write('весы'); 10: if d< 24 then write('весы')   else write('скорпион'); 11: if d< 23 then write('скорпион')   else write('стрелец'); 12: if d< 22 then write('стрелец')   else write('козерог'); 1: if d< 21 then write('козерог')   else write('водолей'); 2: if d< 19 then write('водолей')   else write('рыбы'); else write('нет такого месяца') end; end.

4^16+2^34-8 = 19,6

1 десяток, 9 единиц.