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

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