program mmmforever;
uses graph;
procedure Drawn_pr (x1,y1,x2,y2,x3,y3,type:integer);
case type of
1: procedure cic(x1,y1,r1:integer);
begin
circle (x1,y1,r1);
end;
2: procedure sq(x1,y1,x2,y2:integer);
Begin
rectangle (x1,y1,x2,y2);
end;
3: procedure tr(x1,y1,x2,y2,x3,y3:integer);
begin
line (x1,y1,x2,y2);
line (x2,y2,x3,y3);
line (x3,y3,x1,y1);
end;
else
writeln('Error:Undefined shape type');
{Опишем переменные...}
var

x1,x2,x3,x4,x5,x6,type,num,i: integer;
{тут начнем прогу}

begin

Writeln;
Writeln('Enter shape numer:');
readln(Num);
for i:=1 to num do
begin
writeln('Enter shape type');
readln(type);
case type of
1: begin
writeln('koordinata 1:');
readln(x1);
writeln('koordinata 2:');
readln(x2);
writeln('koordinata 3:');
readln(x3);
x4:=0;
x5:=0;
x6:=0;
end;
2: begin
writeln('koordinata 1');
readln(x1);
writeln('koordinata 2');
readln(x2);
writeln('koordinata 3');
readln(x3);
writeln('koordinata 4');
readln(x4);
x5:=0;
x6:=0;
end;
3: begin
writeln('koordinata 1');
readln(x1);
writeln('koordinata 2');
readln(x2);
writeln('koordinata 3');
readln(x3);
writeln('koordinata 4');
readln(x4);
writeln('koordinata 5');
readln(x5);
writeln('koordinata 6');
readln(x6);
end;
else
writeln('Error:Udefined shape type');
procedure Drawn_pr (x1,x2,x3,x4,x5,x6,type);
end;
end;

end.

Истинный изврат над паскалем... интересно, а оно работает?) ну или хоть компилится?)