Занести в одно мерный массив целые числа с клавиатуры. затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.

Var i:integer; a:array[1..20] of integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if (i=3) or (i mod 10=3) then writeln(a[i]);
readln;
end.