uses crt;
var a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:integer;
    x, vysledek0, vysledek1:real;
    z:char;
begin
repeat
     clrscr;
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     write('Zadej cislo a0: ');readln(a0);
     write('Zadej cislo a1: ');readln(a1);
     write('Zadej cislo a2: ');readln(a2);
     write('Zadej cislo a3: ');readln(a3);
     write('Zadej cislo a4: ');readln(a4);
     write('Zadej cislo a5: ');readln(a5);
     write('Zadej cislo a6: ');readln(a6);
     write('Zadej cislo a7: ');readln(a7);
     write('Zadej cislo a8: ');readln(a8);
     write('Zadej cislo a9: ');readln(a9);
     write('Zadej cislo a10: ');readln(a10);
     write('Zadej x: ');readln(x);
     vysledek0:=a10*x*x*x*x*x*x*x*x*x*x+a9*x*x*x*x*x*x*x*x*x+a8*x*x*x*x*x*x*x*x+a7*x*x*x*x*x*x*x+a6*x*x*x*x*x*x+a5*x*x*x*x*x+a4*x*x*x*x+a3*x*x*x+a2*x*x+a1*x+a0;
     vysledek1:=((((((((((a10*x+a9)*x+a8)*x+a7)*x+a6)*x+a5)*x+a4)*x+a3)*x+a2)*x+a1)*x+a0);
     writeln('Reseni 1.: ',vysledek0:0:2);
     writeln('Reseni 2.: ',vysledek1:0:2);
     readln;
end.
