Перевести код с Delphi на PascalABC - Pascal ABC

Формулировка задачи:

Здравствуйте. Можно ли переделать код написанный под Delphi на PascalABC (если так можно сказать). Сам код:

function TForm1.getR(a,b:real):Real;
begin
Result:= sqr(a)/sqrt(4*sqr(a)-sqr(b));
end;
procedure TForm1.drawTriangle(a,b: Real);
begin
  img1.Canvas.MoveTo(baseX - Round(a/2), basey-Round(b));
  img1.Canvas.LineTo(baseX + Round(a/2), basey-Round(b));
  img1.Canvas.LineTo(baseX, basey);
  img1.Canvas.LineTo(baseX - Round(a/2), basey-Round(b));
end;
procedure TForm1.btn1Click(Sender: TObject);
var a, b, r, bpif : real;
i,n : integer;
begin
  a := StrToFloat(edt1.Text);
  n := StrToInt(Edit1.Text);
  img1.Canvas.Brush.Style := bsSolid;
  img1.Canvas.Rectangle(-1, -1, img1.Width + 1, img1.Height + 1);
  img1.Canvas.Brush.Style := bsClear;
  for i := 1 to n do
  begin
  b := i * 100;
  bpif := Sqrt(Sqr(a/2) + Sqr(b));
  r := getR(bpif, a);
  drawTriangle(a, b);
  img1.Canvas.Ellipse(baseX - Round(r), baseY - Round(2*r), baseX + Round(r), basey);
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  baseX := img1.Width div 2;
  baseY := img1.Height;
end;

Вот само задание: Разработать алгоритм и составить программу для построения на экране изображения. Изображение во вложениях.

Решение задачи: «Перевести код с Delphi на PascalABC»

Листинг программы

uses graphABC;
const baseX=windowwidth div 2;
      baseY=windowheight;
function getR(a,b:real):Real;
begin
Result:= sqr(a)/sqrt(4*sqr(a)-sqr(b));
end;
procedure drawTriangle(a,b: Real);
begin
MoveTo(baseX - Round(a/2), basey-Round(b));
LineTo(baseX + Round(a/2), basey-Round(b));
LineTo(baseX, basey);
LineTo(baseX - Round(a/2), basey-Round(b));
end;
var a,b,r,bpif:real;
    i,n:integer;
begin
write('Введите длину основания треугольников a=');
readln(a);
write('Введите количество треугольников n=');
readln(n);
setbrushstyle(bsClear);
for i:=1 to n do
 begin
  b:=i*100;
  bpif:=sqrt(sqr(a/2)+b*b);
  r:=getR(bpif,a);
  drawTriangle(a,b);
  ellipse(baseX - Round(r), baseY - Round(2*r), baseX + Round(r), basey);
 end;
end.

Объяснение кода листинга программы

Объявлены константы и переменные:
- baseX, baseY - координаты центра основания треугольника;
- a, b, r, bpif - переменные для хранения длины основания треугольника, количества треугольников, радиуса и площади треугольника соответственно;
- i, n - счетчики для цикла;
- WindowWidth, WindowHeight - размеры окна.
Задаются значения переменных a и n с помощью функции readln().
Устанавливается стиль кисти на bsClear (очистка).
Запускается цикл for от 1 до n.
Внутри цикла задаются значения b и bpif, вычисляется значение r с помощью функции getR().
Вызывается функция drawTriangle() для отрисовки треугольника с заданными параметрами.
Вызывается функция ellipse() для отрисовки окружности вокруг треугольника с радиусом r.
Цикл завершается.