Определить, какая из трех точек – M1(x1, y1) , M2(x2, y2), M3(x3, y3) - расположена дальше от начала координат. Вывести на экран координаты этой точки.

Задание 1.
1) Разрешение 80 dpi показывает, что на каждый дюйм изображения приходится 80 точек. Следовательно, размеры изображения в дюймах составят 320/80 × 640/80 = 4х8 дюймов.
2) Общее количество пикселей составит 320×640 = 204800. Для хранения одного пикселя в палитре из 256=2⁸ цветов потребуется 8 бит = 1 байт. Тогда для хранения всего изображения потребуется 204800×1 = 204800 байт = 204800/1024 = 200 Кбайт

Задание 2.
Высказывание совершенно правильное. Чем больше точек будет содержать каждый дюйм (или сантиметр, миллиметр..) изображения, тем оно будет более подробным, т.е. качественнее.
Разница между «качеством изображения» и «качеством отображения изображения на экране монитора» может быть, а может и не быть - все зависит от того, в какой ситуации рассматривается эта фраза. Если мы говорим любую из этих фраз, оценивая картинку на мониторе, то разницы нет, потому что мы описываем то, что видим. Если же мы под «качеством изображения» имеем в виду разрешение того или иного отображения картинки, т.е. количество дюймов (сантиметров, миллиметров...) которые устройство может отображать, то для монитора оно не превышает 92 dpi, а для принтера составляет минимум 300 dpi, т.е. при одинаковом размере изображения качество напечатанной на принтере картинки более чем втрое выше, чем её отображение на мониторе.

USES CRT;

VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;

BEGIN

ClrScr;

     ReadLn(n);

  m1:=n;

   n1:=m1 div 100;

   n2:=m1 mod 10;

   n3:=(m1-n1*100-n2) div 10;

 if n1=n2 then if n1=n3 then writeln('vse =');

 if n1=n2 then writeln('1 i 3 =');

 if n2=n3 then writeln('2 i 3 =');

 if n1=n3 then writeln('1 i 2 =')

 else writeln('<>');

 END.

Проверяйте, что непонятно - спрашивайте.

Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.

Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)

Всего хорошего.