Написать программу на языке Паскаль. Вводятся размер и элементы одномерного массива 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.   Написано через PascalABC. Если используете другой паскаль вместо первой строчки пишите "Program 123;"