Даны трёхзначные числа, если число заканчивается на 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.