PROGRAM FOR_INC;
uses
    CRT;
const
     n = 10;
var
     tmp:         real;
     result:      real;
     i:           byte;
begin
     clrscr;
     result := 1;
     tmp := 0.1;
     for i := 1 to n do
         begin
              result := result * tmp;
              tmp := tmp + 0.4;
         end;
     writeln('Result: ', result:2:2);
     readln;
end.