Developing.ru

Ребята очень прошу вас помочь мне, в институте нам задали задание, решить формулу в паскале, я всё это сделала, но есть проблема, ответы выводятся на экран в 1 столбик и они не помещаются полностью в экран, нужно скроллировать. Помоте пожалуйсто сделать чтобы на экране были видны все ответы в столбике, при необходимости использовать несколько столбиков.

код программы следующий:

PROGRAM PIRMAIS;
USES CRT;
VAR I: INTEGER;
Y, X: REAL;

BEGIN
CLRSCR;
FOR I:= -30 TO 30 DO BEGIN
X:= (I/10);
IF (X=1) OR (X=(-1)) THEN WRITELN (X :0:1, ' NAV')
ELSE Y:= (5*X)/(X*X*X*X - 3*X*X +2);
WRITELN (X :0:1,' ', Y:0:3);
END;
READKEY;
END.

Пожалуйсто, это очень срочно, очень вас прошу о помощи и заранее благодарна вам!

как вариант копи строку, и выводи значения через каждые 2-3 шага.

оО бландика кодер?)

я не понимаю как это сделать((( я учусь на экономике, и у нас урок паскаля есть(

[syntax="pascal"]
USES CRT;
const n=10;
VAR I: INTEGER;
Y,X: REAL;
k:byte;
BEGIN
textmode(259); {mozhno zakommentirovat}
CLRSCR;
k:=0;
writeln(' X Y');
writeln;
FOR I:=-30 TO 30 DO
BEGIN
X:=I/10;
IF (X=1) OR (X=(-1)) THEN WRITELN (X:6:2, ' NAV')
ELSE
begin
Y:=(5*X)/(X*X*X*X-3*sqr(X)+2);
WRITELN (X:6:2,' ', Y:6:2);
end;
if (i mod n = 0) and (abs(I)<30) then
begin
inc(k);
writeln('Pokazano ',n*k,' znachenii.');
readkey;
end;
END;
writeln;
write('Press any key to EXIT...');
READKEY;
END.
[/syntax]