PROGRAM vPol;
{Demonstruje se vypocet polynomu
Koeficienty jsou a[i] = i+1 }
CONST
  np = 100;
TYPE
  PolKoefNP = Array[0..np] OF REAL;
LABEL
  1;
VAR
  a: PolKoefNP;
  n,i:integer;
  x,pol:real;
FUNCTION vyppol(x:real;n:integer;a:PolKoefNP):real;
VAR
  p:real;
BEGIN
  p := a[n];
  FOR i:=n-1 DOWNTO 0 DO
      p := p*x + a[i];
  vyppol:=p;
END;
BEGIN
  WRITELN(' ZADEJ RAD POLYNOMU');
  READLN(n);
  FOR i:=0 TO n DO
      a[i] := i+1;
  WHILE true DO BEGIN
      WRITE(' ZADEJ x (x<-1.e+30 konci vypocet) >>');
      READLN(x);
      IF (x < -1.e+30) THEN goto 1;
      pol := vyppol(x,n,a);
      writeln(x,pol);
      END;
 1:
END.