табуляция программы

[spone379]

в общем написал программу. Её нужно протабулировать при х€[-2;2].

program 379;
uses crt;
var x,b,y:real;
begin
clrscr;
writeln('введите значение х');
write('x=');readln(x);
writeln('введите значение b');
write('b=');readln(b);
if x<0 then begin
y:=3*sqr(x)-x+b;
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:10:4);
end;
if x=0 then writeln('y не задан');
if (x>0) and (x<1) then
if (sqr(x)*x-b)+ln(x+b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y не определен');
if x=1 then writeln('y не задан');
if x>1 then begin
y:=exp(x)+sin(b)*sin(b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:6:2);
end;
readln;
end.

[Luuzuk]

1) Ввод Х нам больше не нужен - удаляем его (саму переменную сохраняем)
2) Иксу присваиваем значение -2
3) Следующий код оборачиваем в цикл while или repeat. На каждой итерации цикла увеличиваем значение X.

writeln('введите значение b');
write('b=');readln(b);
if x<0 then begin
y:=3*sqr(x)-x+b;
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:10:4);
end;
if x=0 then writeln('y не задан');
if (x>0) and (x<1) then
if (sqr(x)*x-b)+ln(x+b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y не определен');
if x=1 then writeln('y не задан');
if x>1 then begin
y:=exp(x)+sin(b)*sin(b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:6:2);
end;

[spone379]

а как сделать в операторе for??