Напишите программу и блок схему . найти количество чисел оканчивающихся на 3 в промежутке от 50 до 100

Var out, i:integer;beginfor i:=50 to 100 do  if i mod 10 = 3 then inc(out);write(out);end.