var
day:integer;
begin
write('Introduce-ti o zi din saptamana(1-7):');
read(day);
case day of
1:begin
write('Luni ');
writeln('Am sase lectii');
end;
2:begin
write('Marti') ;
writeln('Am cinci lectii');
end;
3:begin
write('Miercuri');
writeln('Am sase lectii');
end;
4:begin
write('Joi ');
writeln('Am sase lectii')
end;
5:begin
write('Vineri ');
writeln('Am sase lectii');
end;
6:begin
write('Sambata ');
writeln('Nu am nici o lectie,este zi libera!!(');
end;
7:begin
write('Duminica ');
writeln('Nu am nici o lectie este zi libera!!');
end;
else
writeln('Nu este corect ziua ');
end;
end.
