эх... нету у меня компилятора паскаля
но должно быть как-то так

Код

program vlad;
var
    n,i,g,k:integer;
    f:real;
begin
    cls;
    writeln('Введи n');
    readln(n);
    if n>0 then
    begin
        for i:=1 to n do
        begin
            f:=exp(i);
            k:=trunc(f) mod 10;
            for g:=1 to k do if k<>0 write('#');
                write(f:8:3);
                writeln;
        end;
    end;
end.


Ну, будь моя воля, я бы ещё пару if'ов убрал, но поскольку паскаль не знаю вообще, то рисковать не буду.