При запуске пишет "Встречено 'var', ожидалось выражение." - PascalABC.NET

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

Помогите с программой. При запуске пишет "Встречено 'var', ожидалось выражение.

uses GraphABC;
begin
  (var X0,var Y0,var R):=(100,100,80);MoveTo(X0,Y0-R);
  for var i:=1 to 6 do LineTo(X0+Round(Sin(pi/3*i)*R),Y0-Round(Cos(pi/3*i)*R));
    
  (X0,Y0,R):=(300,200,80);var d:=40;MoveTo(X0,Y0-R);for var i:=1 to 10 do
  LineTo(X0+Round(Sin(pi/5*i)*(odd(i)?d:R)),Y0-Round(Cos(pi/5*i)*(odd(i)?d:R)));
end.

Решение задачи: «При запуске пишет "Встречено 'var', ожидалось выражение."»

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

uses GraphABC;
begin
  var (X0,Y0,R):=(100,100,80);MoveTo(X0,Y0-R);
  for var i:=1 to 6 do LineTo(X0+Round(Sin(pi/3*i)*R),Y0-Round(Cos(pi/3*i)*R));
    
  (X0,Y0,R):=(300,200,80);var d:=40;MoveTo(X0,Y0-R);for var i:=1 to 10 do
  LineTo(X0+Round(Sin(pi/5*i)*(odd(i)?d:R)),Y0-Round(Cos(pi/5*i)*(odd(i)?d:R)));
end.

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

Объявлены три переменные (X0, Y0, R) и инициализированы значениями (100, 100, 80).
Программа перемещает курсор в точку (X0, Y0 - R).
Запускается цикл, который выполняет шесть раз: a. Программа рисует линию до точки (X0 + Round(Sin(pi/3i)R), Y0 - Round(Cos(pi/3i)R)).
Переменные (X0, Y0, R) инициализируются значениями (300, 200, 80).
Объявлена переменная d и инициализируется значением 40.
Программа перемещает курсор в точку (X0, Y0 - R).
Запускается цикл, который выполняет десять раз: a. Программа рисует линию до точки (X0 + Round(Sin(pi/5i)(odd(i)?d:R)), Y0 - Round(Cos(pi/5i)(odd(i)?d:R))).