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

Вариант 1

Program dninedeli;

var

a:integer;

begin

writeln ('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.

Вариант 2

Const

a: array [1 ... 7] of string = ('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресение');

var

i: byte;

begin

readln (i);

if ((i > = 1) and (i < = 7)) then writeln ('Это ', a[i]);

end.