Легкая задача на паскале, но надо ее решить)

[masterlightsmoke]

Условие: вывести на экран сумму элементов массива больше заданного числа

код, который дали, но он не работает

program zadacha2; {amount}
var
A: array [1..100] of integer;
i,n,mas,sum: integer;
begin
      writeln ('Число элементов массива');
      readln (n);
      writeln ('Введите массив:');
      for i:=1 to n do
      readln (mas [i]);
      writeln('Введите число А:');
      readln(a);
      sum:=0;
      for i:=1 to n do
      if mas [i]>a
      then sum:=sum+mas [i];
      writeln ('Сумма элементов, больших числа',a,':',sum );
      readln;
      end.

с паскале только в шк писал, как с нуля ща смотрю)
надо быстренько сделать, кто шарит - это 5 сек.
спасибо)

[Mad_Cat]

var
mas: array [1..100] of integer;
i,n,a,sum: integer;
begin
      writeln ('Число элементов массива');
      readln (n);
      writeln ('Введите массив:');
      for i:=1 to n do
      readln (mas [i]);
      writeln('Введите число А:');
      readln(a);
      sum:=0;
      for i:=1 to n do
      if mas [i]>a
      then sum:=sum+mas [i];
      writeln ('Сумма элементов, больших числа',a,':',sum );
      readln;
      end.

[Serge_Bliznykov]

исправить надо только описание переменных (перепутаны описания для Mas и A ), остальное работоспособно.

program zadacha2; {amount}
var
mas: array [1..100] of integer;
i,n,A,sum: integer;

Mad_Cat, молодца! опередил меня чуток!