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

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