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('Воскресенье');
Answers & Comments
Verified answer
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.