program zile_saptamana;
var n:byte;
try:boolean;
begin
try:=false;
repeat
if(try=true) then
begin
write('Introduceti o valoarea din intervalul [1,7]:');readln(n);
end
else begin write('Introduceti valoarea lui n:');readln(n);
try:=true;
end;
until (n>=1) and (n<=7);
case n of
1: writeln('Luni');
2: writeln('Marti');
3: writeln('Miercuri');
4: writeln('Joi');
5: writeln('Vineri');
6: writeln('Sambata');
7: writeln('Duminica');
end;
readln;
end.
