uses crt;
var s:string; kt:boolean;
begin
clrscr;
   write('Nhap vao so dien thoai: ');readln(s);
   if length(s)=10 then 
      begin 
         s:=copy(s,1,3);
         if (s='096')or(s='097')or(s='098') then kt:=true;
      end else 
   if length(s)=11 then 
      begin 
         s:=copy(s,1,4);
         if (s='0162')or(s='0163')or(s='0164')or(s='0165')or(s='0166')or(s='0167')or(s='0168')or(s='0169') then kt:=true;
      end;
   if kt then writeln('Day la so dien thoai cua Viettel') else
   writeln('Day khong la so dien thoai cua Viettel');
readln
end.

uses crt;
var s,tmp:string;
begin
clrscr;
    readln(s);

    if(length(s) = 10) then 
        begin
            tmp:=copy(s, 1, 3);
            if(tmp = '096') or (tmp = '097') or (tmp = '098') then
                writeln('Thuoc mang Viettel')
            else writeln('Khong thuoc mang Viettel');
        end
    else if(length(s) = 11) then 
        begin
            tmp:=copy(s, 1, 4);
            if(tmp = '0162') or (tmp = '0163') or (tmp = '0164')
                or (tmp = '0165') or (tmp = '0166') or (tmp = '0167') or (tmp = '0168')
                    or (tmp = '0169') then writeln('Thuoc mang Viettel')
            else writeln('Khong thuoc mang Viettel');
        end
    else writeln('Khong thuoc mang Viettel');
readln;
end.