Ответ:

Program Pr1;uses crt;const t=30000;var mas:array[1..t] of integer; i,n,m,l:integer;beginclrscr;for i:=1 to t do mas[i]:=i;writeln(‘введите n и m’);readln(n,m);l:=0;for i:=n to m do if mas[i] mod 10=0 then l:=l+1;writeln(l);end.