Программа 12. Написать программу, которая бы по номеру дня недели

12) var A: array[1… 7] of integer; k: integer; beginrandomize; for k: =1 to 7 doA[k]: =random (5); write ("vvedite den' nedeli: "); readln (k); if (k < 1 or k > 7) writeln ("error"); else if (A[k] <> 0) then writeln ("segodnya urokov: ", A[k]); else write ("vyhodnoy"); end.13) var k: real; beginwrite ("vvedite chislo: "); readln (k); if (k > 0) then write ("polozhitel'noe, "); else if (k < 0) then write ("otricatel'noe, "); else write ("nol', "); if (k mod 1 <> 0) then write ("neceloe, "); else write ("celoe, "); if (k mod 2 <> 0) then writeln ("nechetnoe"); else writeln ("chetnoe"); end.