Răspuns:
program Zile;
var zi:integer;
begin
readln(zi);
case (zi) of
1 : writeln('Luni');
2 : writeln('Marti' );
3 : writeln('Miercuri' );
4 : writeln('Joi' );
5: writeln('Vineri');
6: writeln('Sambata');
7: writeln('Duminica');
end;
end.
Explicație: