Запишите на языке Паскаль программу…

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.