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

//pascal abc.net 3.1 сборка 1256 uses   graphabc;   var   n: integer;   procedure square(var n: integer); begin readln(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; begin i: =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(;   inc(i);   end; end; begin randomize; square(n); points(n); end.

Var a, b, c, d, x, y: real; begin  readln(a, b, c);   {ax^4 + bx^2 + c = 0}  if a = 0 then  writeln('non-bisquare')  else  begin  d : = b * b - 4 * a * c;   if d < 0 then  writeln('no solutions')  else  begin if d = 0 then    begin x : = -b / 2 / a;     if x < 0 then      writeln('no solutions')    else writeln('2 solutions: ', sqrt(x), ' ', -sqrt(x));     end    else    begin x : = (-b + sqrt(d)) / 2 / a;     y : = (-b - sqrt(d)) / 2 / a;     if x < 0 then writeln('no solutions');     if x = 0 then      writeln('1 solution: 0');     if (x > 0) and (y < 0) then      writeln('2 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3);     if (x > 0) and (y = 0) then      writeln('3 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' 0');     if y > 0 then      writeln('4 solutions: ', sqrt(x): 0: 3, ' ', -sqrt(x): 0: 3, ' ', sqrt(y): 0: 3, ' ', -sqrt(y): 0: 3);     end;   end;   end; end.