12 lines
231 B
ObjectPascal
12 lines
231 B
ObjectPascal
// Îïåðàòîð âûáîðà
|
|
var day: integer;
|
|
|
|
begin
|
|
writeln('Ââåäèòå íîìåð äíÿ íåäåëè (1..7): ');
|
|
readln(day);
|
|
case day of
|
|
1..5: writeln('Áóäíèé');
|
|
6,7: writeln('Âûõîäíîé');
|
|
else writeln('Íåâåðíûé äåíü íåäåëè');
|
|
end;
|
|
end. |