Программа , которая выводит на экран день недели. четверг

PASCAL program aa; var a : integer; begin writeln('Введите день недели'); Read(a); If (a < 1) or (a>7) then writeln('Такого дня не существует'); If (a > 0) and (a<6) then writeln('Рабочий день'); If a=4 then writeln(четверг'); end