Введите число от 1 до 7.Если 1 - понедельник,если 2 - вторник и т.д.Вывести все это на Pascal abc

да

Program zadanie;var a:integer;BeginWriteln('Введите число от 1 до 7');If a=1 then writeln('Понедельник');If a=2 then writeln('Вторник');If a=3 then writeln('Среда');If a=4 then writeln('Четверг');If a=5 then writeln('Пятница');If a=6 then writeln('Суббота');If a=7 then writeln('Воскресенье');End.