Как построить график функции в PascalABC?

Question

[WhoAmI02]

uses GraphABC;

begin
  
  SetWindowSize(500, 500);
  
   var x, y, dt, t, a,l: Real;
   write('a=');
   read(a);
   write('l=');
   read(l);
   
   dt := 0.001;
   t:= pi/2;
   
   while t < 3*pi/2 do
   begin
     x := a + l *cos(t);
     y := a * sin(t)/cos(t) + l * sin(t);
     SetPixel(250 + Round(x * 1200), 250 - Round(y * 1200), clBlack);
     t := t + dt;
   end;
  
end.

Пытаюсь построить график конхоиды Никомеда по уравнениям x := a + l *cos(t);
y := a * sin(t)/cos(t) + l * sin(t);
Какие бы значения не подставлял выбрасывается ошибка "Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32"

Answer 1

[Hemul GM]

Так отладку произведи
Смотри значение из твоей формулы