viết chương trình nhập 2 số tự nhiên m và n (0<10m<n<200), sau đó tính tổng các số tự nhiên mà chữ số tận cùng là 7 (ví dụ: 17,...) trong đoạn từ m đến n

program bai_giai;
uses crt;
var m,n,i,s:longint;
begin
 clrscr;
  write('nhap m,n:');readln(m,n);
  while(n<=m)or(m<=0)or(n>=200)do
        begin
         write('nhap lai m,n:');readln(m,n);
        end;
  for i:=m to n do if(i mod 10=7)then s:=s+i;
  write('s=',s);
 readln;
end.

uses crt;
var i,m,n,s:longint;
begin
clrscr;
   repeat 
      write('Nhap m,n: ');readln(m,n);
   until (0<m)and(m<n)and(n<200);
   for i:=m to n do 
      if i mod 10=7 then  
         s:=s+i;
   writeln('Tong: ',s);
readln;
end.