Благого всем вечера/денька!Пожалуйста,помогите с Информатикой записать программу в

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите цена 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Цена ', i, ' кг конфет: ', i*t);
end.

Смысл таковой:  - стоимость 1 кг конфет (вещественный тип real)
- счетчик, который будет возрастать на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает для вас возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Дальше идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Цена ', потом значение i, позже строчку 'кг конфет: ', позже число i умноженное на t

После того, как закончишь обрабатывать все это в заключительный десятый раз, перебегай дальше.

А далее у нас end (последний end. всегда с точкой).

Конец.