Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающиеся на 3. Кол-во чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - сумму чисел, оканчивающихся на 3.

program A;var a,b,c,s:integer;beginwrite('введите кол-во чисел в последовательности:');readln(a);for c:=1 to a dobeginwrite('введите число:');readln(b);if (b mod 10=3) thens:=s+b;write(b,' ');end;writeln('сумма чисел, оканчивающихся на 3=',s);end.с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3program B;var a,b,s:integer;beginwrite('введите кол-во чисел в последовательности:');readln(a);for c:=1 to a dob:=random(300)+1;if (b mod 10=3) thens:=s+b;write(b,' ');end;writeln('сумма чисел, оканчивающихся на 3=',s);end.с клавиатуры вводится  только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3