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 
 

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