Закодируйте с asii кода номера группы свою фамилию я ахмедов из группы 1 д 2

Двоичный код: 0000111000101111001011110001010000001110001011000001100100001110001011110001111000001110001011100010110000001110001011100001111000001110001011100001110100001110001011100010111000001110001011100001101100010100000011100010111000100001000011100010111000100000000101000000111000101110000111000000111000101111000110010000111000101111000111000000111000101110001011110000111000101110001011110000111000101111001010110001010000011010000101000000111000101110000111010001010000011011

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.