Вывести текстовый файл в паскале

[Саша Амбражевич]

Ввести с клавиатуры стоимость 1 кг конфет. Вывести текстовый файл - информацию о стоимости 1,2,3,...,10 кг конфет.

[Hacker19_90]

Readln(stoim);
assign(f, 'output.txt');
rewrite(f);
for i := 1 to 10 do
    writeln(f, i*stoim);
close(f);

[Саша Амбражевич]

пожалуйсто весь код программы

[Hacker19_90]

о_О! 50 рублей на телефон! Согласен???

[Саша Амбражевич]

да, я согласен

[Hacker19_90]

Ложи +7 927 374 26 71

[Саша Амбражевич]

положу 100 только завтра. плиз срочно надо

[Hacker19_90]

о_О! Ну вот завтра и напишу!

[Саша Амбражевич]

завтра уже будет не нужно....

[Hacker19_90]

Халявщики! Ладно лови!

program z1;
uses crt;
var
    f: text;
    stoim: real;
    i: integer;
begin
    clrscr;
    Readln(stoim);
    assign(f, 'output.txt');
    rewrite(f);
    for i := 1 to 10 do
        writeln(f, i*stoim);
    close(f);
    ReadKey;
end.