Основные понятия языка Паскаль

Основные понятия языка рассмотрим на примере простейшей программы.

Пример 6.1.  Для заданного массива, состоящего из 10 чисел найти сумму отрицательных элементов.

Program Ex_1;                                              {Заголовок программы}
Uses CRT;                                                  {Использовать модуль CRT}
Const n=10;                                                {Описание константы}
Type vec=array[1..n] of real;                     {Описание типа}
Var                                                              {Описание переменных}
a                :vec;
sum              :real;
i                :integer;
Begin
clrscr;                                                     {Очистка экрана}
Writeln('Введите массив а(10):');
For i:=1 to n do  Read(a[i]);                   {Ввод массива}
sum:=0;
for i:=1 to n do
if a[i]<0 then  sum:=sum+a[i];           {Вычисление суммы}
Writeln('Результат:':20);
Writeln('sum=',sum:10);                           {Вывод результата}
End.