Программирование,кг сыра 280 руб,вывести стоимость сыра от 1 до 10 кг,)

Program writePrice;
var
price: Integer = 280;
i: Integer;
begin
for i:= 1 to 10 do
WriteLn('Стоимость ' + i + 'кг: ' + price * i)
end.