Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом: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 ABC.NET. Пожалуйста, проверьте, работает ли она в вашем Pascal.