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.