Дано вещественное число - цена 1 кг конфет, вывести стоимость 100г,200г...1кг. Записать...

Question

Дано вещественное число - цена 1 кг конфет, вывести стоимость 100г,200г...1кг. Записать на языке Pascal

Answer 1

var i,n:real;
begin
  read (n);
  for i:=1 to 10 do
    write (i*n/10)
end.