Se citeste de la tastatură numarul de ordine al zilei saptamanii. Sa se scrie un program care afiseaza numarul de lectii pe care le aveti in aceasta zi.
Răspunsuri la întrebare
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.