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

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.