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

Program ads; vari: integer; z,x,a: real; beginwriteln ('Введи цену за килограмм'); readln (z); //Узнаем цену за 1 кг.a: =0,1; //начальный вес 100 грамм.for i: =1 to 10 do beginwrite ('Цена за '); write (a: 5:2); //Выводим весx: =z*a; //Высчитываем цену за a граммa: =a+0,1; //прибавляем 100 граммwrite (' килограмм равна — '); write (x: 5:2); //Выводим цену за весwriteln; end; readln; end.