Добавление возможности ввода с клавиатуры - PascalABC.NET

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

Как сделать так, чтобы количество шагов t можно было вводить с клавиатуры?

uses GraphABC;
procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
    Draw(x, y, l, u, t);
    x := x + l*cos(u);
    y := y - l*sin(u);
end;
      begin
        if t > 0 then
          begin
            l := l/3;
            Draw2(x, y, l, u, t-1);
            Draw2(x, y, l, u+pi/3, t-1);
            Draw2(x, y, l, u-pi/3, t-1);
            Draw2(x, y, l, u, t-1);
          end
        else
          Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))
      end;
        begin
        SetWindowSize(425,500);
        Draw(10, 354, 400, pi/3, 2);
        Draw(410, 354, 400, pi, 2);
        Draw(210, 8, 400, -pi/3, 2);
end.

Решение задачи: «Добавление возможности ввода с клавиатуры»

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

var t:=ReadlnInteger('Введите количество шагов t=');
SetWindowSize(425,500);
Draw(10, 354, 400, pi/3, t);
Draw(410, 354, 400, pi, t);
Draw(210, 8, 400, -pi/3, t);

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

Сначала пользователю предлагается ввести количество шагов t с клавиатуры с помощью функции ReadlnInteger.
Затем устанавливается размер окна с помощью функции SetWindowSize равным 425х500 пикселей.
Далее происходит рисование трех окружностей на экране с помощью функции Draw, где первый аргумент (x,y) - координаты центра окружности, второй аргумент (w,h) - размеры окружности, третий аргумент - угол поворота (в радианах), четвертый аргумент - значение переменной t.