Графический редактор Pascal - Pascal ABC

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

Найти и изобразить на числовой прямой множеств А \bigcap В, А \bigcup В и А\В если: А={x \epsilon R | lg(x-5)>3} B={x \epsilon R| (x-5)/(x+2)<3} Такое задание: надо изобразить решение на числовой прямой в Pascal. Начал писать код для решения точки А

uses GraphABC;
var x,x1,x2,y1,y2,n,i:integer;
    a1,a2,b1,b2:integer;
 
begin
  Line(25,50,460,50);
  Line(460,50,453,45);
  Line(460,50,453,55);
  Circle(50,50,3);
  Circle(360,50,3);
  TextOut(47,30,5);
  TextOut(334,30,1005);
 
  n:=100;
  x1:=50;
  y1:=53;
  x2:=455;
  
  x:=(x2-x1) div n;
  for i:=1 to n do
  Line(x1+x*i,y1+3,x1+x*i,y1-3);
  
  n:=20;
  a1:=360;
  b1:=46;
  a2:=455;
  
  x:=(a2-a1) div n;
  for i:=1 to n do
  Line(a1+x*i,b1+3,a1+x*i,b1-3);
end.

Хотелось бы что бы чёрточки были под углом, как в тетради. Как реализовать?

Решение задачи: «Графический редактор Pascal»

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

Line(x1+x*i-3,y1+3,x1+x*i+3,y1-3);

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

В данном коде происходит рисование линии в графическом редакторе Pascal с помощью функции Line.

Создается переменная i типа Integer, которая итерируется от 1 до x (предполагается, что x больше 0).
Для каждого значения i выполняется рисование линии с помощью функции Line.
Первый аргумент функции Line - координаты начала линии (x1+x*i-3,y1+3).
Второй аргумент функции Line - координаты конца линии (x1+x*i+3,y1-3).
Третий аргумент функции Line - не используется (по умолчанию это 0).
Четвертый аргумент функции Line - не используется (по умолчанию это 0).
Пятый аргумент функции Line - не используется (по умолчанию это 0).
Шестой аргумент функции Line - не используется (по умолчанию это 0).
Седьмой аргумент функции Line - не используется (по умолчанию это 0).
Восьмой аргумент функции Line - не используется (по умолчанию это 0).
Девятый аргумент функции Line - не используется (по умолчанию это 0).
Десятый аргумент функции Line - не используется (по умолчанию это 0).
Одиннадцатый аргумент функции Line - не используется (по умолчанию это 0).
Двенадцатый аргумент функции Line - не используется (по умолчанию это 0).
Тринадцатый аргумент функции Line - не используется (по умолчанию это 0).
Четырнадцатый аргумент функции Line - не используется (по умолчанию это 0).
Пятнадцатый аргумент функции Line - не используется (по умолчанию это 0).
Шестнадцатый аргумент функции Line - не используется (по умолчанию это 0).
Семнадцатый аргумент функции Line - не используется (по умолчанию это 0).
Восемнадцатый аргумент функции Line - не используется (по умолчанию это 0).