Не превысила ли общая масса всех грузов грузоподъемность автомобиля - Pascal

Формулировка задачи:

Известна масса каждого груза, загружаемого в автомобиль. Выяснить, не превысила ли общая масса всех грузов грузоподъемность автомобиля.

Решение задачи: «Не превысила ли общая масса всех грузов грузоподъемность автомобиля»

Листинг программы

Var i,n,g,sym:integer;
 
BEGIN
 
Write('Введите кол. грузов: '); Read(n);
 
For i:=1 to n do
 Begin
   Write('Введите вес груза №',i,': '); Read(g);
   sym:=sym+g;
 End;
 
Write('Введите грузоподъемность автомобиля: '); Read(n); // Ввод символа
If sym<=n then Writeln('Всё норм.')
 else Writeln('Авто перегружен')
 
END.

Объяснение кода листинга программы

В начале объявляются переменные i, n, g, sym типа integer.
1. Затем выводится сообщение для ввода количества грузов.
2. Далее идет цикл for, который выполняется от 1 до n (количество грузов).
3. Внутри цикла считывается вес каждого груза и переменная sym увеличивается на этот вес.
4. После окончания цикла выводится сообщение о том, перегружен ли автомобиль.
5. Если sym меньше или равно n, то выводится сообщение Всё норм., иначе выводится сообщение Авто перегружен.
6. В конце программы выводится символ новой строки.