Напишите пожалуйста программу на языке Паскаль

Program natur;
uses crt;
var r1, r2, l:Integer;

begin
Writeln('Введите R1, R2, L');

Readln(r1, r2, l);

if (r1+r2) gt; l then Write('Окружности имеют 2 общие точки');

if (r1+r2) = l then Write('Окружности имеют 1 общую точку');

if (r1+r2) lt; l then Write('Окружности не имеют общих точек');

if (r1=r2) and (r1=l) then Write('Окружности совпадают, все их точки - общие);

readln;
end.

На турбопаскале. В принципе и на АВС обязано работать

Даны три естественных числа: r1, r2, L... PascalABC.NET