5. Массив А размером 10 заполняется с клавиатуры. Верно ли, что произведение элементов массива, оканчивающихся на 5, больше 150?

var    a: array[1..10] of integer;    i, p: integer;begin    for i:=1 to 10 do        readln(a[i]);    p:=1;    for i:=1 to 10 do        if a[i] mod 10 = 5 then            p := p * a[i];    if p > 150 then        writeln('Верно')    else        writeln('Не верно');end.