Надо написать шифратор на visual studio 2017-2019(цифры цезаря не подходит)
завтра экзамен(

Uses graphabc; begin   {горшок}   setpencolor(clbrown);   setbrushcolor(clbrown);   line(52, 280, 110, 452);   line(110, 452, 196, 452);   line(196, 452, 243, 280);   line(243, 280, 52, 280);   {зальём горшок цветом}   floodfill(120, 400, clbrown);   {стебли}   setpenwidth(5);   setpencolor(clgreen);   line(58, 129, 127, 277);   line(142, 56, 142, 280);   line(229, 123, 164, 278);   {лепестки цветов}   setpencolor(clpurple);   line(44, 101, 29, 70);   line(45, 98, 67, 68);   line(55, 95, 55, 64);   line(55, 95, 74, 73);   line(71, 99, 83, 81);   line(71, 110, 95, 109);   line(73, 116, 92, 123);   line(60, 122, 83, 135);   line(50, 132, 48, 145);   line(49, 132, 33, 143);   line(41, 123, 19, 133);   line(43, 115, 13, 124);   line(44, 109, 14, 108);   line(37, 103, 17, 94);   line(136, 50, 131, 64);   line(135, 46, 117, 67);   line(125, 48, 98, 62);   line(135, 38, 102, 37);   line(130, 30, 103, 22);   line(128, 22, 112, 7);   line(146, 12, 155, -6);   line(158, 14, 166, -7);   line(159, 28, 175, 12);   line(163, 40, 191, 47);   line(158, 47, 172, 58);   line(147, 49, 162, 68);   line(134, 19, 129, 6);   line(218, 91, 210, 78);   line(216, 91, 198, 80);   line(225, 83, 213, 60);   line(243, 88, 240, 62);   line(251, 89, 267, 74);   line(255, 106, 278, 110);   line(245, 116, 264, 132);   line(238, 118, 248, 142);   line(231, 125, 232, 141);   line(219, 112, 197, 129);   line(219, 112, 183, 108);   {середины цветков}   setpencolor(clyellow);   setbrushcolor(clyellow);   circle(53, 116, 16);   circle(142, 37, 17);   circle(231, 103, 20); end.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ArrRandom(100,10,99).Println.Sorted.Println
end.

Пример
36 20 21 96 76 46 14 62 76 59 93 21 78 49 43 60 81 13 75 48 51 11 99 34 61 46 85 55 74 91 76 34 74 26 85 76 69 96 29 45 95 69 28 23 20 77 96 12 72 83 39 29 10 66 68 35 20 87 44 39 61 58 87 85 83 69 47 61 64 66 91 85 83 39 53 82 82 85 23 83 50 82 83 91 61 57 33 17 57 59 66 82 61 90 84 46 81 43 40 51
10 11 12 13 14 17 20 20 20 21 21 23 23 26 28 29 29 33 34 34 35 36 39 39 39 40 43 43 44 45 46 46 46 47 48 49 50 51 51 53 55 57 57 58 59 59 60 61 61 61 61 61 62 64 66 66 66 68 69 69 69 72 74 74 75 76 76 76 76 77 78 81 81 82 82 82 82 83 83 83 83 83 84 85 85 85 85 85 87 87 90 91 91 91 93 95 96 96 96 99