Ну uses crt для того если я не ошибаюсь что-бы работала программа Var это переменные Writeln это то что обычно будет написано программой Readln это то число которое ты будешь вводить дальше веселей скажу на своём если i равно 1 или n тогда начали если j равно 1 или n тогда если i равно 1 или i равно n написать 0 в противном случае если i больше или равно j и i+j меньше или равно n+1 тогда написать 1 в противном случае если i меньше или равно j и i+j больше или равно n+1 тогда написать 1 в противном случае написать 0
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. всегда с точкой).
- цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла 
.
