dikdörtgen çizimi

[gokhanaygun]

uses crt;
var
a,b,c,d,k:byte;
Procedure dikkenarli(x1,y1,x2,y2:byte);
Var
k:byte;
Begin
writeln('asd') ;
Gotoxy(x1,y1);Write(#201);
for k:=x1+1 to x2-1 do Write (#205);
Write(#187);
for k:= y1+1 to y2-1 do
begin
Gotoxy(x1,k);Write(#186);
Gotoxy(x2,k);Write(#186);
end;
Gotoxy(x1,y2);Write(#200);
for k:=x1+1 to x2-1 do Write(#205);
Write(#188);
End;

procedure kordinatlar;
begin clrscr;
writeln('1 kordinatinı yaz'); readln(a);
writeln('2 kordınatını yaz'); readln(b);
writeln('3 kordınatını yaz'); readln(c);
writeln('4 kordınatını yaz'); readln(d);

clrscr;
dikkenarli(a,b,c,d);
write('gokhan aygun');


readln;
end;
begin
kordinatlar;

end.
end.