program CongTySanXuatMayMac;
uses crt;
Var N, i: Longint;
PC, LSP, TL: Extended; {Lý do tính Phụ cấp, Lương sản phẩm và Thực lãnh liên quan đến phân số tức phép chia hai số nguyên dương, và phép cộng hai số có kiểu dữ liệu ghi bằng phân số. Xin lỗi

tại vì nó hạn chế vãi}
{N là sản phẩm làm được của nhân viên thứ i, với i là
biến index = 1 cho đếm số lượng nhân viên trong công ty, PC là phụ cấp, LSP là viết tắt của
(lương sản phẩm) sản phẩm chưa tính phụ cấp, TL viết tắt của 'Thực lãnh', tính cả lương
sản phẩm và phụ cấp}
Begin
    clrscr;
    Writeln('Nhập nhân viên thứ: '); read(i);
    While (i <= 0) do {Kiểm tra index phải dương}
    Begin
        Writeln('Nhập lại số thứ tự của nhân viên đó: '); read(N);
    End;
    Writeln('Nhập số SP của nhân viên đó: '); read(N); {Với SP là sản phẩm tạo ra của
    nhân viên thứ i}
    While ((N <= 0) or (N >= 1000)) do {Kiểm tra số sản phẩm theo như đề bài nói
    số SP không được dưới hoặc bằng 0 và bằng hoặc lớn hơn 1000}
    Begin
        Writeln('Nhập số SP của nhân viên đó: '); read(N);
    End;
    If (N > 200) then {Như đề bài, nếu là ghi sai chính tả dấu bằng thì reply cho mình rồi mình sửa}
    Begin
        PC:= (3/20)*N; {15% tối giản thành phân số 3/20 cho dễ}
    End
    Else
        PC:= (1/20)*N; {5% tối giản thành phân số 1/20 cho dễ}
    LSP:= N*30;
    TL:= LSP + PC;
    Writeln('Lương thực lãnh của nhân viên thứ ',i,' ','là: ',TL);
    Readln;
END.