nr:=+1;
if nr :=>3 then break;

uses graphABC;
var  nr,px1,py1:integer;

    

procedure MouseDown(x,y,mb:integer);
begin
px1:=x; //начальная позиция фигурs равна центру экрана
py1:=y;
drawrectangle(px1-25,py1-50,px1+25,py1+50);
lockdrawing;
redraw;
end;

procedure draw_r(); //рисуем
begin
onmousedown:=MouseDown;
end;


begin//основной цикл
SetWindowTitle('Графическое окно');
Setwindowsize(800,600); //размер окна
CenterWindow;//центр монитора

draw_r();

end.

uses GraphABC;

var a,b: integer; //координаты мышки

procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then // передаем координаты мышки в переменные а и б
a : = x;
b := y;
end;

begin
SetWindowTitle('123');
Setwindowsize(800,600); //размер окна

OnMouseDown:=MouseDown; //1 клик, передаем координаты мышки в начальные координаты лайна
x1: = a;
y1: = b;

OnMouseDown:=MouseDown; //2 клик, передаем тоже самое только в конечные
x2 : = a;
y2 : = b;

Line(x1,y1,x2,y2); //рисуем

end.

uses crt;

var i: real;

begin
  random(i);
  read('i');
end.