Ввести целое n , если n > 0, то вывести число en в каждой строке числа
от 1 до n , слева от числа вывести знак “#” столько раз, чему равен
остаток от деления целой части числа на 10- Pascal(Паскаль)

Например, для n = 5 :
## 2,718
####### 7,389
20,085
#### 54,598
######## 148,413

const
e=2.718281828459045;
var
res: real;
i,n,ol,j: integer;
begin
writeln('Введите N');
readln(n);
res:=1;
for i:=1 to n do
    begin
    res:=res*e;
    ol:=trunc(res) mod 10;
    for j:=1 to ol do write('#');
    writeln(res);
    end;
end.