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.