Запишите ** языке Паскаль программу, которая по номеру дня недели будет выводить его...

Question

Запишите на языке Паскаль программу, которая по номеру дня недели будет выводить его название.

Answer 1

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.