program bt3;
var i,n : integer;
    a   : array[1..100] of integer;
{Phan tu Duong dau tien xuat hien}
   procedure tim(n : integer);
    var i : integer;
        x : array[1..100] of integer;
        begin
         i:=1;
         While (x[i] < 0) and (i<=n) do
          i:=i+1;
          write('phan tu duong dau tien xuat hien la ',x[i],'vi tri' , i);
        end;
   begin
    write('nhap n ');
    readln(n);
    for i:=1 to n do
    a[i] :=i-5;
    tim(n);
    readln;
   end.

program bt3;
type mang=array[1..100] of integer;
var i,n : integer;
    a   : mang;
{Phan tu Duong dau tien xuat hien}
   procedure tim(n : integer;x:mang);
    var i,t : integer;
        begin
         t:=0;
         for i:=1 to n do
          if x[i]>0 then begin t:=i;break;end;
          if t>0 then 
          writeln('Thang dau tien xuat hien la ',x[t],'vi tri' , t)
           else writeln('Khong co thang nao trong mang')
        end;
   begin
    write('nhap n ');
    readln(n);
    for i:=1 to n do
    a[i] :=i-5;
    tim(n);
    readln;
   end.

program bt3;
var n,i : integer;
    a   : array[1..100] of integer;
{Phan tu Duong dau tien xuat hien}
   procedure tim(n : integer);
    var j : integer;{Cần khai báo biến khác với biến toàn cục i đã khai báo.
                        Trong trường hợp này không cần khai báo cũng được}
        x : array[1..100] of integer;
        begin
         j:=1;
         While (x[i] <= 0) and (j<=n) do
          j:=i+1;
          write('phan tu duong dau tien xuat hien la ',x[j],'vi tri' , j);
        end;
   begin
    write('nhap n ');
    readln(n);
    for i:=1 to n do
    a[i] :=i-5;
    tim(n);
    readln;
   end.

Program Tinh_luong;
USES CRT;
TYPE
	ConTro = ^Banghi;
   BanGhi = RECORD
   	HoLot       : String[17];
      Ten         : String[7];
      Bl,Pc,Tlinh : LongInt;
      Next        : ConTro;
   End;
VAR
	First, Last, Newp : ConTro;
   Ch                : Char;
   i                 : Integer;
   HeapTop           : ^Integer;
Begin
	ClrScr;
   GotoXY(5,25);
   Writeln('Bam <Esc> de thoat, bam<Enter> de tiep tuc nhap');
   Window(1,1,80,24);
	Writeln('MINH HOA CACH VIET CHUONG TRINH KIEU CON TRO');
   Writeln('--------------------------------------------');
   First := NIL;
   Mark(HeapTop);
   i := 0;
   Repeat
   	i := i + 1;
      New(Newp);
      With Newp^ Do
      	Begin
         	Write('-Ho lot cua nguoi thu: ',i:2,' la: ');
            Readln(HoLot);
            Write('-Ten cua nguoi nay la: ');
            Readln(Ten);
            Write('-Bac luong cua nguoi nay la: ');
            Readln(Bl);
            Write('-Phu cap cua nguoi nay la: ');
            Readln(Pc);
            Tlinh := Trunc(Bl * 102.27) + Pc;
         End;
      If First = NIL Then
      	First := Newp
      Else
      	Last^.Next := Newp;
         Last := Newp;
         Last^.Next := NIL;
      Ch := ReadKey;
   Until Ch = #27;
   Writeln;
   ClrScr;
   Writeln('DANH SACH LINH LUONG');
   Writeln('--------------------');
   While First <> NIL Do
   	With First^ Do
      	Begin
         	Writeln('+Ho ten: ',HoLot,' ',Ten);
            Writeln('+Bac luong : ',Bl);
            Writeln('+Phu cap   : ',Pc);
            Writeln('+Duoc linh : ',Tlinh:8,' dong');
            First := Next;
            Writeln;
         End;
   Release(HeapTop);
   Writeln;
   Writeln('        Bam <Enter> de ket thuc');
   Readln
End.

Program Tinh_luong;
USES CRT;
TYPE
	ConTro = ^Banghi;
	BanGhi = RECORD
		HoLot : String[17];
		Ten : String[7];
		Bl,Pc,Tlinh : LongInt;
		Next : ConTro;
	End;
VAR
	First, Newp, Head : ConTro;{Khai báo Last hình như là hơi nhầm}
	Ch : Char;
	i : Integer;
	HeapTop : ^Integer;
Begin
	ClrScr;
	GotoXY(5,25);
	Writeln('Bam <Esc> de thoat, bam<Enter> de tiep tuc nhap');
	Window(1,1,80,24);
	Writeln('MINH HOA CACH VIET CHUONG TRINH KIEU CON TRO');
	Writeln('--------------------------------------------');
	First := NIL;
	Mark(HeapTop);
	i := 0;
	Repeat
	i := i + 1;
	New(Newp);
		With Newp^ Do
			Begin
				Write('-Ho lot cua nguoi thu: ',i:2,' la: ');
				Readln(HoLot);
				Write('-Ten cua nguoi nay la: ');
				Readln(Ten);
				Write('-Bac luong cua nguoi nay la: ');
				Readln(Bl);
				Write('-Phu cap cua nguoi nay la: ');
				Readln(Pc);
				Tlinh := Trunc(Bl * 102.27) + Pc;
			End;
		{Đoạn này để kiểm tra nhập cho lần đầu tiên thôi. Nếu là lần đầu thì nhập vào first}
		If First = NIL Then 
                    begin
			First := Newp;
                        Head := Newp;
                    end;
		Else
			First^.Next := Newp;{Chỗ này phải là First mới đúng}
		{Hết đoạn kiểm tra}
		First := Newp;{Khởi tạo lại để tiếp tục tạo danh sách liên kết động}
		First^.Next := NIL;
		Ch := ReadKey;
	Until Ch = #27;
	Writeln;
	ClrScr;
	Writeln('DANH SACH LINH LUONG');
	Writeln('--------------------');
        First := Nil;
        First := Head;
	While First <> NIL Do
		With First^ Do
			Begin
				Writeln('+Ho ten: ',HoLot,' ',Ten);
				Writeln('+Bac luong : ',Bl);
				Writeln('+Phu cap   : ',Pc);
				Writeln('+Duoc linh : ',Tlinh:8,' dong');
				First := Next;
				Writeln;
			End;
	Release(HeapTop);
	Writeln;
	Writeln('        Bam <Enter> de ket thuc');
	Readln
End .

 procedure chen(var p : contro);
var q : contro;
 begin
   new(q);
    q^.hoten:='luong bich huu';
    q^.tongtien:=300000;
    q^.cvu:='ktt';
    q^.next:=first;
    first:=q;
 end;
 
begin
chen(p);
p:=first;
While p <> Nil do
 begin
   Writeln('+',p^.hoten ,'chuc vu ',p^.cvu,' co phu cap ',p^.pcap,'luong ', p^.tongtien);
   p:=p^.next;
 end;

 procedure chen(var p : contro);
var q : contro;
 begin
   new(q);
    q^.hoten:='luong bich huu';
    q^.tongtien:=300000;
    q^.cvu:='ktt';
    q^.next:=first;
    first:=Nil;
    new(first);
    first^:=@q;{Nếu viết như cũ thì First trỏ tới địa chỉ q mà khi thoát
chương trình còn thì q được giải phóng do nó không phải biến toàn chương trình}
 end;
 
begin
chen(p);
p:=first;
While p <> Nil do
 begin
   Writeln('+',p^.hoten ,'chuc vu ',p^.cvu,' co phu cap ',p^.pcap,'luong ', p^.tongtien);
   p:=p^.next;
 end;