Mọi người giúp bài passcal này với

[bekeogom]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập họ tên , Chức vụ (Giám đốc , trưởng phòng,phó phòng, nhân viên -khi nhập gõ tắt là : GD , TP,PP,NV) và mức lương tháng của một người. tính:
* Phụ cấp lương cho người đó như sau:
PC=50% nếu là GD
PC = 40% - TP
PC=30% - pp
PC=20% - NV
Tính tổng thu nhập theo công thức:
TONGTN = Lương + PC
In Họ tên , chức vụ , mức lương , phụ cấp và tổng thu nhập ra màn hình.
Mới học tới rẽ nhánh thui , IF then , case .
Xin cảm ơn !

 

[atlmnt]

var
  hoten:string;
  st:string[2];
  luong:longint;
begin
 write('Ho ten:'); readln(hoten);
 write('Chuc vu:'); readln(st);
 write('Luong thang:');readln(luong);
 writeln('**************');
 writeln('Ho ten:',hoten);
 case st of
 'GD': BEGIN
        writeln('Chuc vu: Giam doc');
        writeln('Muc luong:',luong);
        writeln('Phu cap:',0.5*luong);
        writeln('Tong thu nhap:',luong+0.5*luong);
        END;
 'TP':      BEGIN
     writeln('Chuc vu: Truong phong');
  writeln('Muc luong:',luong);
        writeln('Phu cap:',0.4*luong);
        writeln('Tong thu nhap:',luong+0.4*luong);
        END;
 'PP': BEGIN
     writeln('Chuc vu: Pho phong');
  writeln('Muc luong:',luong);
        writeln('Phu cap:',0.3*luong);
        writeln('Tong thu nhap:',luong+0.3*luong);
        END;
 'NV':  BEGIN
     writeln('Chuc vu: Nhan vien');
  writeln('Muc luong:',luong);
        writeln('Phu cap:',0.2*luong);
        writeln('Tong thu nhap:',luong+0.2*luong);
        END;
 end;
 readln;
 end.