Question

Язык програмирования PASKAL/ задача: дано действительное число - цена 1 кг конфет Вывести стои 1.2, 1.4 ... 2 кг конфет

Answer 1

    program for4;
     
    var
      i: integer;
      price_one: real;
     
    begin
      read(price_one);
      for i := 1 to 10 do writeln(i, ' кг. стоит - ', price_one * i, ' ');
    end.