Постройте алгоритм и Составьте программу по которой будет реализован следующий сценарий: компьютер запрашивает номер

Вариант 1Program dninedeli;vara:integer;beginwriteln(\'Vvedi nomer\');read(a);if a=1 then writeln(\'PN\')else if a=2 then writeln(\'VT\')else if a=3 then writeln(\'SR\')else if a=4 then writeln(\'HT\')else if a=5 then writeln(\'PT\')else if a=2 then writeln(\'SB\')else if a=2 then writeln(\'VS\')end.Вариант 2Const a: array [1..7] of string=(\'понедельник\', \'вторник\', \'среда\', \'четверг\', \'пятница\', \'суббота\', \'воскресение\');var i: byte;begin readln(i); if ((i >= 1) and (i <= 7)) then writeln(\'Это \', a[i]);end.