нахождение рациональных корней многочлена с целым коэффициентом, вот не знаю как и что дальше делать... Опции

[krofik]

program abc;
var
A1,X1n,A2,X2n,A3,X3n,s:real;
begin
writeln('нахождение рациональных корней многочлена с целым коэффициентом');
writeln('Введите первый коэффициент и степень Х при  нем');
    read(A1);
    read(X1n);
writeln('Введите второй коэффициент и степень Х при нем');
    read(A2);
    read(X2n);
writeln('Введите третий коэффициент и степень Х при нем');
    read(A3);
    read(X3n);
writeln('Введите своббодный коэффициент');
    read(n);
for del:=1 to n do
if (i mod del)=0 then
                    write(делители свободного члена,' ');
for del:=1 to A1 do
if (i mod del)=0 then
                    write(делители первого коэффициента,' ');
Type
    Age=n/A1;
while s=0 do 
 

вот что-то написал. сам толком не знаю, что, но охота дописать. но в этом случаи можно сказать"выше головы..".
Взял самую сложную задачу в тетради и решил решить ее через паскаль. и в итоге остановился почти сразу... я сам толком не могу объяснить, что это, но думаю вы разберетесь и поможет. хотя если что то обойдусь.

[Lapp]

вот что-то написал. сам толком не знаю, что, но охота дописать. но в этом случаи можно сказать"выше головы..".
...
я сам толком не могу объяснить, что это, но думаю вы разберетесь и поможет.

Чуть ли не впервые встречаю тут совершенно адекватное описание сделанного! Это заслуживает по крайней мере ответа )).

Во-первых, krofik, поставь задачу точнее. Какие многочлены? Какой степени? Почему именно рациональные? Какой ты собираешься применить алгоритм?
Все эти вопросы нужно четко себе уяснить ДО начала написания проги. Если есть малейшая неясность - плохо, надо избавиться.
И, пожалуйста, дублируй текст задания в теле темы, даже если он есть в заголовке.

Пока я вижу, что у тебя непонятки с постановкой задачи. Зачем вводить степени? Что ты этим хотел сказать? Попробуй словами промоделировать прогу. Типа так:
1. собираемся решить КВАДРАТНОЕ уравнение;
2. вводим а0, а1, а2;
....