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

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.