Запишем представление восьмеричного числа в двоичной системе, группируя двоичные разряда по три (два в третьей степени равно 8)
111 100 000 000(2) = 7400(8).
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Uses crt;
var x, y:integer;
begin
write('x='); read(x);
y:=2*x+8;
writeln('y=',y);
<span>end.</span>