составить программу нахождения всех двухзначных чисел,у которых первая цифра больше второй на 3.Подчситать их количесвто

vari,k,m,n:Integer;Begin for i:=10 to 99 do  begin   m:=i mod 10;   n:=i div 10;   if (n-m=3) then k:=k+1;  end; Writeln(k);end.