program wielomian;
uses crt;
var A: array[0..10] of integer;
    n,i: byte;
    klawisz: char;
label poczatek;

begin
poczatek:
clrscr;
textcolor(11);
writeln;
writeln('               Program wypisuje wielomian ze wspolczynnikami');
writeln('                       podanymi przez uzytkownika');
write('Podaj stopien wielomianu, (-1<n<11) n = '); readln(n);
for i:=n downto 0 do
begin
     write('a',i,' = ');
     readln(A[i]);
end;
writeln('Wielomian wyglada nastepujaco:');


write('W(x) = ');textcolor(15);write(A[n]);textcolor(11);write('x^',n);
if n>0 then

for i:=n-1 downto 0 do
begin
     if A[i]>0 then begin
     write(' + ');textcolor(15);write(A[i]);textcolor(11);write('x^',i);
     end;
     if A[i]<0 then begin
     write(' - ');textcolor(15);write(abs(A[i]));textcolor(11);write('x^',i);
     end;
end;

textcolor(11);
writeln;writeln;writeln;
write('Czy powtorzyc obliczenia? (t/n)');
klawisz:=readkey;
if klawisz='t' then goto poczatek;
end.