Сейчас приведем простой цикл программы с комментариями, Вы пробуете их понять, также в конце будут две ссылки на вспомогательные темы.

Итак ставим задачу: зная количество человек, зашедших в лифт и массу каждого, определить есть ли превышение допустимой массы или нет.

Program Lift_go; {Начало программы}
Var { Раздел описания переменных}
liftgo:boolean; {переменная логического типа, можно ехать или нет}
num,i :integer; {num - задаем число людей зашедших в лифт, i -
вспомогательная переменная, является
счетчиком, эти числа могут быть только
целыми и не меньше нуля}
mn,m: real; { масса каждого человека, и суммарная масса}
begin {начинается тело программы}
num:=0; m:=0; { определили, что на данный момент число
людей в лифте = 0, и масса также = 0}
writeln('Введите число пассажиров от 1 до 5'); {программа пишет
оператору, что вводим число пассажиров}
readln(num); {задали случайное число от 1 до 5}
for i :=1 to num do {запускаем цикл перебора пассажиров, от
числа 1 до значения num }
begin {начало тела цикла}
writeln('введите массу ',i,' пассажира'); {просим ввести массу
каждого пассажира по порядку}
read(mn); {вводим массу каждого пассажира по порядку}
m:=mn+m; {суммируем массу текущего пассажира к
массе тех, кто уже вошел}
end; {окончание тела цикла}
writeln('общая пассажиров будет',m , 'килограмм'); { после окончания
подсчета декларируем суммарную массу
людей в лифте}
if m < 400 then {сравниваем текущую массу с допустимой}
liftgo:=true {В случае правильности утверждения
принимаем значение "истина"}
else {В случае не правильности утверждения
переходим к альтернативе}
liftgo:= false; { принимаем значение "ложь"}
if liftgo then {проверяем на истинность условие, что
масса меньше 400, которое проверили ранее}
writeln('масса пассажиров меньше предельной, лифт поедет') {если
утверждение истинно, то выводим на экран
текущий текст}
else {иначе, или альтернативное действие в
случае ложного утверждения}
writeln(' масса пассажиров больше предельной, лифт останется на месте '); { сообщаем оператору, что лифт
перегружен}
end . {конец общего тела программы.}

Вы можете вставить программу прямо отсюда в компилятор.

Программирование для начанающих. Оператор условия if... Else... Then, разбор.

Так выглядит код программы в компиляторе. Самое главное - это Ваша практика, берите пробуйте самостоятельно переделывать код. Если есть какие-то интересные задачи, пишите думаю совместно найдем решение. На различных контроллерах, задачи выполняются подобным образом, просто алгоритмы поинтереснее и текстовые меню короче, плюс увязаны в спец формат. Но это будет изучать дальше.

Берите код и пробуйте менять его в силу Вашего понимания.

Если Вам понравилась публикация, подписывайтесь на канал, за Ваши лайки чаще показывают Наши публикации.
Для поиска публикаций через поисковые системы, просто вводите слово Вивитроника.
Если есть вопросы или по желания, то пишите, через Обратную связь