Вася шифрует слова, записывая вместо каждой буквы её номер в алфавите (без пробелов номера букв даны в таблице а1 й11 у21 31э б2 к12 ф22 ю32 в3 л13 х23 я33 г4 м14 ц24 д5 н15 ч25 е6 о16 ш26 ё7 п17 щ27 ж8 р18 ъ28 з9 с19 ы29 и10 т20 ь30 некоторые шифровки можно расшифровать не одним например, 12112 может означать < > , может - < > , а может - < > . даны четыре шифровки: 112233 135793 203014 412030 только одна из них расшифровывается единственным найдите её и расшифруйте. то, что получилось, запишите в качестве ответа

412030 - расшифровка которую можно расшифровать единственным потому как нет значений 41 и 0.
Расшифровка 4 -1 - 20 - 30 = Г-А-Т-Ь

program figyri;

uses crt,graphABC;

var xc,yc:integer;

   m:integer;

begin

xc:=windowwidth div 2;

yc:=windowheight div 2;

repeat

write ('Введите число');

read (m);

if m>2 then

   begin

     setpencolor(clGreen);

     rectangle(xc-100,yc-100,xc+100,yc+100);

     floodfill(xc,yc,clGreen);

     readkey;

    end;

if m<2 then      

   begin

     setpencolor(clRed);

     line (xc-100,yc+50,xc+100,yc+50);

     line (xc+100,yc+50,xc,yc-100);

     line(xc,yc-100,xc-100,yc+50);

     floodfill(xc,yc,clRed);

     readkey;

    end;

if m mod 2=0 then

    begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д

```

var a:array[1..100,1..100]of integer;

N, M, i, j, mini, minj, maxi, maxj :integer;

 

begin

write('N, M -> ');

readln(N, M); {считываем размер матрицы}

write('Input matrix -> ');

for i:=1 to N do for j:=1 to M do

begin

 write('A[',i,',',j,'] -> ');

 readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini:=1;

minj:=1;

maxi:=2;

maxj:=2;

for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then

begin

 maxi := i;

 maxj := j;

end else if a[i, j] < a[mini, minj] then

begin

 mini := i;

 minj := j;

end;

writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end. ```