Закодируйте слово MOUSE в десятичном и двоичном кодах

В двоичном: 77 79 85 83 69

В десятеричном: 01001101 01001111 01010101 01010011 01000101

Вот и все, удачи)

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

800*600*24*4/8=5760000 байт=5625 кбайт