Задача: Дано трёхзначное число. Напишите программу, которая определяет: а) есть ли среди цифр заданного целого трёхзначного числа одинаковые; б) является ли число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.(121 - перевертыш, 156 - не перевертыш))

Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:

uses  GraphABC;
var  x0, y0, x1, y1: integer;

begin   
   SetWindowSize(400, 400);//устанавливаем размер окна 
   x0 := WindowWidth;//ширина окна 
   y0 := WindowHeight;//высота окна   

   SetFontColor(clRed);//Устанавливаем цвет текста 
   TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу  
  
   x1 := WindowWidth div 2; //половина ширины окна 
   y1 := WindowHeight div 2;//половина высоты окна   

  SetFontColor(clBlue); 
  TextOut(x1, y1, 'Сергей');//Надпись посередине   

  SetFontColor(clYellow); 
  TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу  

  SetFontColor(clPurple); 
  TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу   

  SetFontColor(clGreen); 
  TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.

Программа была написана  в проверьте, работает ли она в вашем Pascal.

Логика поиска ответа проста — линейные размеры каждого формата переводятся в дюймы, а затем в пиксели, исходя из того, что в одном дюйме 300 (150) пикселей. Далее полученное число сравнивается с размером изображения (там есть определенные нюансы, связанные с отношением высоты и ширины, но об этом во второй части). Если размер формата в пикселях больше, чем размер нашего изображения (на рисунке — формат справа от фотографии), то он уже не подойдет, ибо фотографию придется растягивать, и мы получим разрешение хуже 300 (150) dpi. Если размер формата меньше, чем размер нашего изображения (на рисунке — формат справа от фотографии), то он подойдет — фотографию придется сжимать, и мы получим разрешение лучше 300 (150) dpi.