Дано вещественное число - цена 1 кг конфет. вывести стоимость 1, 2 ..., 10кг конфет
For i:=1 to 10 do writeln(i,i*c:5:2); начало и конец сами