Составить программу на языке паскаль для вычисления суммы всех четных чисел на интервале от 1 до н. (9 )

Исправленоuses crt; {описание переменных}var a,b,c: array [1..20] of integer;     x,sum: integer; begin      sum: =0; {обнуляем сумму}      for x: =1 to 20 do {включаем цикл ввода массивов}      begin          write('a[',x,']: '); {вывод текста на экран}          readln(a[x]); {ввод массива а}          write('b[',x,']: '); {вывод текста на экран}          readln(b[x]); {ввод массива в}          c[x]: =a[x]+b[x]; {формируем массив с}          if x mod 2=0 then              sum: =sum+c[x];       end;       writeln; {переводим указатель на новую строку}      for x: =1 to 20 do {цикл вывода массива с}          writeln('c[',x,']: ',c[x]); {вывод текста на экран}      writeln('sum=',sum); {сумма четных элементов массива с}end.текст в фигурных скобках удалять не обязательно, он на код не влияет.