Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
1мб=1048576 байтов
1048576:4=262144 байт
Объем памяти = 1280*1024*32 бит = 1280*1024*32/8 байт =
1280*1024*4/1024 Кбайт = 5120 Кайт = 5120/1024 Мбайт = 5 Мбайт
Первый 8 второй 6
%%%%&&&&&&&&&&&$$