Дано вещественное число — цена 1 кг конфет. вывести стоимость 1, 2, 10 кг конфет. program p1 var i,s: real begin writeln ('введите стоимость 1 кг конфет') for i: =1 to 10 do writeln дальше

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.