Дано вещественное число -- цена 1кг конфет. Вывести стоимость 0,1, 0,2, ..., 1 кг конфет

var a:real; //стоим. 1 кг
    i:byte; //счетчик
begin
write('Введите цену 1 кг конфет a=');
read(a);
for i:=1 to 10 do//10 раз через 100 грамм
//выводим вес в виде 0.1 и стоимость в виде 111.11
writeln(i/10:0:1,' кг стоят ',i*a/10:0:2)
end.

uses crt;
 
var
  p: real; // цена
  m: real; // вес
 
begin
  m := 1;
  repeat // поскольку цена может быть только положительной, считываем значение p(цена) до тех пор, пока она не примет верное значение
    write('Введите цену 1 кг конфет: ');
    readln(p);
  until p > 0;
  while m >= 0.1 do
  // Уменьшаем m(массу) до тех пор, пока она не будет равняться 0,1
  begin
    writeln(m:0:1, ' кг конфет стоит ', m * p:0:2);  // Выводим соответствующее сообщение с каждым изменением m(массы)
    m := m - 0.1;
  end;
  readln;
 
end.

read(p);

readln;

readln(p);