Nhập vào thông tin về cán bộ: họ tên, chức vụ, hiển thị ra màn hình phụ cấp mà cán bộ đó được nhận, biết: Giám đốc : 5000000; Phó giám đốc: 3000000; Còn lại :500000;( làm dưới dạng tín học 11)

program giai ;

uses crt;

var ht,cv:string;

begin

clrscr;

write('nhap hoten: ');readln(ht);

write('nhap chuc vu: ');readln(cv);

if cv='giam doc' then write('phu cap 5000000');

if cv='pho giam doc' then write('phu cap 3000000');

if( cv<> 'giam doc') and(cv<>'pho giam doc') then write('phu cap 500000');

readln;

end.

Program tien;

Uses crt;

Var ten,chuc: string;

Begin

Clrscr;

Write('Ho va ten:'); Readln(ten);

Write('Chuc vu:'); Readln(chuc);

If chuc='Giam doc' then writeln('Phu cap duoc nhan: 5000000') 

else

    if chuc='Pho giam doc' then writeln('Phu cap duoc nhan: 3000000')

                                          else writeln('Phu cap duoc nhan: 500000');

Readln;

End.