Chương trình Pascal để nhập vào chức vụ của một người và tính lương của người đó theo công thức lương = phụ cấp * lương cơ bản như sau:

```
program TinhLuong;
var
chucvu: string;
phucap, luongcoban, luong: real;
begin
write('Nhap chuc vu cua nhan vien: ');
readln(chucvu);
write('Nhap luong co ban cua nhan vien: ');
readln(luongcoban);

// Tính phụ cấp theo chức vụ
if chucvu = 'Giam doc' then
phucap := 0.3
else if chucvu = 'Truong phong' then
phucap := 0.2
else if chucvu = 'Nhan vien' then
phucap := 0.1
else
phucap := 0;

// Tính lương
luong := luongcoban * (1 + phucap);

writeln('Luong cua nhan vien la: ', luong:0:2);
readln;
end.
```

Chương trình này sẽ yêu cầu người dùng nhập vào chức vụ và lương cơ bản của người đó. Sau đó, chương trình sẽ tính phụ cấp dựa trên chức vụ và tính lương theo công thức lương = phụ cấp * lương cơ bản. Cuối cùng, chương trình sẽ in ra lương của người đó.