Mn ai giúp tui bài này với, sẽ cho ctlhn, ngôn ngữ pascal Bài 3: SỔ LIÊN LẠC ĐIỆN TỬ VÀO ĐẦU NĂM HỌ, phụ huynh đăng ký sổ liên lạc điện tử để nhận kết quả họ tập của ha ở phần mềm Vnedu vào thứ 7 hằng tuần của nhà mạng VNPT, theo quy định

var s: string;
// 091 094 081 082 083 084 085 088
begin
    readln(s);
    if s[2]='9' then begin
        if (s[3]='1') or (s[3]='4') then begin
            writeln(s,' la mang Vinaphone');
            write('So tiem can nop phi la: 60000d');
        end
    end;
    if s[2]='8' then begin
        if (s[3]='1') or (s[3]='2') or (s[3]='4') or (s[4]='5') or (s[3]='8') then begin
            writeln(s,' la mang Vinaphone');
            write('So tiem can nop phi la: 60000d');
        end
    end else begin
        writeln(s,' khong la mang Vinaphone');
        write('So tiem can nop phi la: 100000d');
    end
end.

uses crt;
var s,s2:string;
begin
assign(input,'DL.inp');
reset(input);
assign(output,'KQ.out');
rewrite(output); 
readln(s);
s2:=copy(s,1,3);
if (s2='091') or(s2='094') or(s2='081') or(s2='082') or(s2='083')or(s2='084')or(s2='085')or(s2='088') then
begin
 writeln(s,' la mang Vnaphone');
 write('So tien can nop phi la: 60000d')
end
else
begin
 writeln(s,' la mang khac');
 write('So tien can nop phi la: 1000000d');
end;
end.