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

Вариант 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 gt;= 1) and (i lt;= 7)) then writeln(Это , a[i]);
end.