Составьте программу вычерчивания рамки вокруг экрана заданной ширины и заданного цвета. Ширина и цвет задаются в диалоге — Pascal(Паскаль)

uses crt,graph;
var w,c,gd,gm:integer;
begin
clrscr;
write('Shirina ramki w=');
readln(w);
repeat
write('Nomer cveta [1..15] c=');
readln(c);
until c in [1..15];
gd:=0;
initgraph(gd,gm,'');
setfillstyle(1,c);
bar(0,0,w,getmaxY);
bar(0,0,getmaxX,w);
bar(0,getmaxY-w,getmaxX,getmaxY);
bar(getmaxX-w,0,getmaxX,getmaxY);
readln
end.