Написать программу,котороя выводит на экран таблицу стоимости например яблок в диапазоне от 100г до 1 кг с шагом 100 ниже представлен рекомендуемый вид экрана программы во время ее работы

Var d,k,r: integer;
begin
writeln(Введите цену за 100г: );
readln (k);
for d:=1 to 10 do
begin
r:=d*k;
writeln(d*100, г=, r, руб);
 end;
end.