Пример кода на Паскале для отображения буквы "М" с использованием команд Topoint и Line:

program DrawM;
uses Crt, Graph;
var
gd, gm, x, y: integer;
procedure Topoint$a,b:integer$;
begin
moveto$a,b$;
end;
procedure LineToNewPoint$a,b:integer$;
begin
lineto$a,b$;
end;
begin
gd := Detect;
InitGraph$gd,gm{,}^{\prime \prime }$;
x := 100;
y := 50;
// Draw letter "M" using Topoint and LineToNewPoint
Topoint$x,y$;
LineToNewPoint$x+20,y+40$;
LineToNewPoint$x+40,y$;
LineToNewPoint$x+60,y+40$;
LineToNewPoint$x+80,y$;
readln;
CloseGraph;
end.

Этот код создаст графическое окно и нарисует букву "М" с использованием команд Topoint и LineToNewPoint. Вы можете настраивать координаты x и y, чтобы изменить положение буквы "М" на экране.