Написать программу на языке Паскаль. Вводятся размер и элементы одномерного массива A(N), состоящего из целых чисел. Подсчитать сумму простых чисел, оканчивающихся на 3. Результат вывести на экран.

uses crt;
Var a:array [1..100] of integer; i,n,s: integer;
Begin

Writeln(Введите размер массива); readln(n);

For i:=1 to n do begin
                    writeln(Введите элемент массива номер  ,i); read(a[i]);
                 end;

For i:=1 to n do
    if a[i] mod 10=3 then s:=s+a[i];
    
Writeln(Сумма = ,s);

end.