Oh, tak si zase malujeme. Tentokrát opravdu vážně. 😉

uses Graph, Crt;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,' ');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { domecek jednim tahem}
MoveTo (round (GetMaxX/2), round (GetMaxY/2));
LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
LineTo (round (GetMaxX/2)+50, round (GetMaxY/2)-100-50);
LineTo (round (GetMaxX/2), round (GetMaxY/2)-100);
LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100);
LineTo (round (GetMaxX/2), round (GetMaxY/2));
LineTo (round (GetMaxX/2), round (GetMaxY/2)-100);
LineTo (round (GetMaxX/2)+100, round (GetMaxY/2));
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
repeat until KeyPressed;
end.