<em>program konfety; </em>
<em> var t: real; </em>
<em> i: integer; </em>
<em>begin</em>
<em> WriteLn('Введите стоимость 1 кг конфет (в рублях): ');</em>
<em> Read(t);</em>
<em> for i := 1 to 10 do</em>
<em> WriteLn('Стоимость ', i, ' кг конфет: ', i*t);</em>
<span><em>end.
</em>Смысл такой: </span>
![t](https://tex.z-dn.net/?f=t)
- цена 1 кг конфет (вещественный тип real)
![i](https://tex.z-dn.net/?f=i)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла
![for](https://tex.z-dn.net/?f=for)
.
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной
![t](https://tex.z-dn.net/?f=t)
то значение, которое мы ввели.
Далее идет цикл
![for](https://tex.z-dn.net/?f=for)
, который по сути вот что делает:
<u /><em>Для каждого целого i от 1 до 10 сделай вот что:
</em> <em>Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t
</em><em>После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
</em>А дальше у нас end (последний end. всегда с точкой).
<em>
Конец.</em>