Язык pascal ABC
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.

 Program z; var a: array[1..5] of integer; i,sum:integer; begin for i:=1 to 5 do begin readln(a[i]); end; for i:=1 to 5 do begin if(a[i] mod 4=0) and (a[i] div 10=6) thensum:=sum+a[i]; end; writeln(sum); end.