Question

Составить программу ,которая будет рисовать букву 'К'

Answer 1

Program K;
uses GraphABC;

begin

SetWindowWidth(800);
SetWindowHeight(600);

SetFontColor(clBlack);
SetFontSize(18);
SetPenWidth(3);
SetFontStyle(fsBold);
Line(200,400,200,200);
Line(200,300,300,200);
Line(200,300,300,400);
end.