Даны трёхзначные числа, если число заканчивается на 4 вывести его на экран. надо написать блок схему и программу

//PascalABC.Net 3.2 сборка 1318

const  n=5;
Var  ar:array[1..n] of integer;  i:integer;beginfor i:=1 to n do  readln(ar[i]);for i:=1 to n do  if ar[i] mod 10=4 then writeln(ar[i]);end.