Насколько я понял
k:=0;
for i:=1 to 5 do
begin
readln(a[i]);
if (a[i] mod 10 = 8) and (a[i] mod 3)=0 then
inc(k);
end;
writeln(k);
1)Проверь сдачу,не отходя от кассы,
Смотреть под ноги,
Спрашивать кто там?-прежде чем открывать дверь.
2)Блок-схема линейного алгоритма.(разветвляющий алгоритм)