Паскаль. Создайте процедуру, рисующую квадрат заданной величины по центру окна. Отобразите в графическом окне 1000 точек со случайными координатами и лежащими внутри квадрата.

//Pascal ABC.NET 3.1 сборка 1256uses GraphABC; Var n:integer; procedure square(var n:integer);beginreadln(n);rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);end;procedure points(n:integer);Var x,y,i:integer;begini:=0;while i<1000 do begin  x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);  y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);  setpixel(x,y,rgb(random(255),random(255),random(255)));  inc(i); end;end;beginrandomize;square(n);points(n);end.