Контрольная работа: Автоматизований аналіз злочинності по областям

begin

ramo4ka (x, y, x1, y1, a, b);

end;

procedure pamka (x1, y1, x2, y2:integer);

var i, c:integer;

begin

textcolor(7);

gotoxy (x1, y1);

write(#201);

for i:=1 to x2-x1–1 do

begin

gotoxy (x1+i, y1);

write(#205);

end;

gotoxy (x2, y1);

write(#187);

for i:=1 to y2-y1–1 do

begin

gotoxy (x2, y1+i);

write(#186);

end;

gotoxy (x2, y2);

write(#188);

for i:=1 to x2-x1–1 do

begin

gotoxy (x2-i, y2);

write(#205);

end;

gotoxy (x1, y2);