delphi for

[Ainur]

Помогите пожалуйста решить через For Дано вещественное число- цена1кг конфет. вывести стоимость 1,2...,10 кг конфет

[Андрей.12]

uses crt;
var i,k,n,z:integer;
begin
clrscr;
write('vvedite ceny za 1 kg: ');
readln(n);
z:=1;
for i:=1 to 20 do
begin
k:=k+n;
write(z,'kg= ');
writeln(k);
i:=i+1;
z:=z+1;
end;
readln;
end.

код паскаль, думаю не сложно будет перевести

[eoln]

Код паскаль, думаю не сложно будет перевести
o_O

var i:integer;
n:real;
begin
write('vvedite ceny za 1 kg: ');
readln(n);
for i:=1 to 10 do writeln(i,'kg= ',i*n:0:2);
readln
end.