Помогите составить программу на Turbo Pascal?

uses
crt, graph;
var
gd,gm : integer;
x,y : integer;
m : char;

procedure CaseN(n : byte);
begin
case n of
1 : x := GetMaxX div 4 - 50;
2 : x := GetMaxX div 2 - 50;
3 : x := GetMaxX div 2 + GetMaxX div 4 - 50;
end;
end;

procedure C(n : byte);
begin
CaseN(n);
Arc (x + 50, y - 50, 0, 180, 50);
Line (x, y - 50, x, y + 50);
Arc (x + 50, y + 50, 180, 360, 50);
end;

procedure O(n : byte);
begin
C(n);
Line (x + 100, y - 50, x + 100, y + 50);
end;

procedure K(n : byte);
begin
CaseN(n);
Line (x, y - 100, x, y + 100);
Line (x, y, x + 100, y - 100);
Line (x, y, x + 100, y + 100);
end;

BEGIN
ClrScr;
WriteLn('Vyberite variant vyvoda bukv:');
WriteLn('1) COK');
WriteLn('2) KOC');
WriteLn('3) OCK');
WriteLn('4) OKC');
repeat
m := ReadKey;
until (m >= '1') and (m <= '4');
InitGraph (gd, gm, '');
y := GetMaxY div 2;
case m of
'1' :
begin
C(1);
O(2);
K(3);
end;
'2' :
begin
K(1);
O(2);
C(3);
end;
'3' :
begin
O(1);
C(2);
K(3);
end;
'4' :
begin
O(1);
K(2);
C(3);
end;
end;
ReadKey;
CloseGraph;
END.

Ну и пиши на PascalABC. С графикой он работает, только инициализирует иначе и выводит в окне. Так и скажешь - для вашего каменного топора у меня во дворе подходящих камней нет.
Впрочем, при желании можно и на семерке TurboPascal использовать с имитатором DOS. Готовая сборка с имитатором тут:
http://freesoft.ru/?id=677901

оу