(!) Составьте программу вычисления количества трёхзначных чисел, у которых первая цифра меньше третьей на 4

var i,k:integer;begink:=0;for i:=100 to 999 doif (i  div 100 )+4= i mod 10then k:=k+1; writeln('Количество чисел  =', k);end.