program MENU;
uses crt;
var x:byte;
BEGIN
    clrscr;
    writeln('MENU');
    writeln('0. Khong lam gi het va tro lai man hinh soan thao');
    writeln('1. Tra sua truyen thong');
    writeln('2. Tra sua duong den');
    writeln('3. Tra sua Matcha');
    writeln('-----------------');
    write('Nguoi dung lua chon: ');readln(x);
    write('Nguoi dung da lua chon: ');
    Case x of
        0:exit;
        1:begin
              write('Tra sua truyen thong');
        end;
        2:begin
              write('Tra sua duong den');
        end;
        3:begin
              write('Tra sua Matcha');
        end;
        else writeln;
        write('--Nguoi dung chon sai roi!--');
        delay(5000);
        exit;
    End;
    readln
END.

program ct;
uses crt;
var a: array [0..4] of string;
    i,n: byte;
begin
    clrscr;
    a[0]:= '0. Khong lam gi het, tro ve man hinh soan thao';
    a[1]:= '1. Tra sua truyen thong';
    a[2]:= '2. Tra sua duong den';
    a[3]:= '3. Tra sua Macha';
    a[4]:= '4. Tra sua CaFe';
    for i:= 0 to 4 do writeln(a[i]);
    Writeln('Ban chon:');readln(n);
    writeln('Nguoi dung da chon: ',a[n]);
end.

______________________

#Duahauvn