Program Bob;var z:integer;beginwriteln('введи номер дня недели');readln(z);if z=1 then writeln('Понедельник')else if z=2 then writeln('Вторник')else if z=3 then writeln('Среда')else if z=4 then writeln('Четверг')else if z=5 then writeln('Пятница')else if z=6 then writeln('Суббота')else if z=7 then writeln('Воскресенье')else writeln('нет такого дня недели');readln;end.Пожалуйста посчитайте начертить схему(если что это паскаль)