uses graph, crt;
var
gd, gm, choice: integer;
label 1, 2, 3, 4;
begin
writeln('1-параллеограмм 2-прямоугольник 3-ромб 4-квадрат');
readln(choice);
initgraph(gd, gm, 'c:\bp\bgi');
IF choice = 1 THEN
GOTO 1;
IF choice = 2 THEN
GOTO 2;
IF choice = 3 THEN
GOTO 3;
IF choice = 4 THEN
GOTO 4;
1:
clearviewport;
LINE(320, 240, 400, 240);
LINE(350, 290, 430, 290);
LINE(320, 240, 350, 290);
LINE(400, 240, 430, 290);
repeat
;
until keypressed;
halt;
2:
clearviewport;
rectangle(320, 240, 400, 290);
repeat
;
until keypressed;
halt;
3:
clearviewport;
LINE(320, 240, 270, 290);
LINE(320, 240, 370, 290);
LINE(320, 340, 370, 290);
LINE(320, 340, 270, 290);
repeat
;
until keypressed;
halt;
4:
clearviewport;
rectangle(320, 240, 420, 340);
repeat
;
until keypressed;
halt;
closegraph;
end.