`* Pascal:`

`" "`

program colonne_vache ;
uses crt;
var n, a, b, x, y, r, indi, min: longint;
    longueurs: real;

begin
    clrscr;
    readln(n, a, b);
    
    min :=  high(longInt);
    for indi := 1 to n do 
    begin
        readln(x, y, r);
        
        longueurs := sqrt((x - a) * (x - a) + (y - b) * (y - b)) - r;
        if longueurs = trunc(longueurs) then
        begin
            if min > trunc(longueurs) - 1 then
                min := trunc(longueurs) - 1;
        end
        else
            if min > trunc(longueurs) then
                min := trunc(longueurs);
    end;
    
    writeln(min);
    
    readln
end.

$\color{#e6ffff}{\text{___}}$ $\color{#ccffff}{\text{___}}$ $\color{#b3ffff}{\text{___}}$ $\color{#99ffff}{\text{___}}$ $\color{#80ffff}{\text{___}}$ $\color{#66ffff}{\text{___}}$ $\color{#4dffff}{\text{___}}$ $\color{#33ffff}{\text{___}}$ $\color{#1affff}{\text{___}}$ $\color{#00ffff}{\text{___}}$ $\color{#00e6e6}{\text{___}}$ $\color{#00cccc}{\text{___}}$ $\color{#00b3b3}{\text{___}}$ $\color{ #009999}{\text{___}}$ $\color{#008080}{\text{___}}$ $\color{#006666}{\text{___}}$ $\color{#004d4d}{\text{___}}$ $\color{#003333}{\text{___}}$

`" "`

`*` Đống rơm:

      `*` Tọa độ `(x; y)`

      `*` Bán kính `r`

`*` Cọc nhốt bò:

      `*` Tọa độ `(a; b)`

`*` Khoảng cách từ trung tâm đống rơm đến cọc nhốt bò:

      `longueurs = sqrt((x - a)^2 + (y - b)^2)`

`*` Độ dài để con bò chạm được rìa đống rơm: 

      `longueurs - r`

`" "`

`*` `l` nguyên lớn nhất bằng:

      `1.` `trunc(longueurs - r)` nếu `longueurs - r` là số thực (Số nguyên lớn nhất bé hơn `longueurs - r` là `trunc(longueurs - r)`)

`" "`

      `2.`` longueurs - r - 1` nếu `longueurs - r` là số nguyên (Số nguyên lớn nhất bé hơn `longueurs - r` là `longueurs - r - 1`, nếu lấy luôn giá trị `longueurs - r` thì bò sẽ chạm được đống rơm)

`" "`

`*` Trường hợp nhiều đống rơm thì cần tìm khoảng cách là số nguyên sao cho ngay cả đống rơm gần nhất con bò cũng không chạm được.