Подскажите как закончить задачу, а то получается конечный ответ а не как в примере. Условие задачи:
Ввести целое n , если n > 0, то вывести число en в каждой строке числа
от 1 до n , слева от числа вывести знак “#” столько раз, чему равен
остаток от деления целой части числа на 10. Например, для n = 5 :
## 2,718
####### 7,389
20,085
#### 54,598
######## 148,413

Моя задача: 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 then
write('#');
end;
write(f:8:3);
writeln;
end;
end.

Допустим ввожу 5 получается:

##################### 148.413


Заранее спасибо