FreePascal.ru

Вроде как всё правильно немогу найти ошибку

Нады сделать график функции на free паскале y=a*tan(x)+b,где а и b задает пользователь)))

вот код программы
uses graph,crt;
const
x1=-7;
x2=7;
var
mx,my,a,x,dx,y1:real;
x0,y0,grD,px,py,grM,i,k:integer;
s,s1:string;
A1,B1: Integer;


begin
clrscr;
WriteLn('vvedite a & b: ');
Readln(a1,b1);


grD ...