{ FUNKCIA.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita funkciu y=xe^(x+1) pre 5 zadanych cisel                  }
{ Vstup : 5 cisel                                                   }
{ Vystup: hodnoty funkcie                                           }
{                                                                   }
{ Datum:30.09.2001                             http://www.trsek.com }

program stvorec;
uses crt;
var pole:array[1..5] of real;
    i:integer;
    pom:real;
begin
 Clrscr;
 for i:=1 to 5 do begin
     Write('pole[',i,']=');
     ReadLn( pole[i] );
    end;

 WriteLn;
 WriteLn('Pre funkciu y=xe^(x+1) su nasledovne hodnoty:');
 for i:=1 to 5 do begin
     pom := pole[i] * exp( pole[i]+1 );
     WriteLn( pom:9:2 );
    end;

 ReadLn;
end.