Program OTT execution by fpc

Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); 2: Write('keo'); 3: Write('bao'); End; Begin Write('Nguoi 1 choi: '); Readln(i1); Chon(i1); Write('Nguoi 2 choi: '); Readln(i2); CHon(i2); IF i1=i2 then Write('2 nguoi hoa'); End; If (i1=1 and i2=2) or (i1=2 and i2=3) or (i1=3 and i2=1) then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); 2: Write('keo'); 3: Write('bao'); End; {thiếu end ở đây, end of procedure} Begin Write('Nguoi 1 choi: '); Readln(i1); Chon(i1); Write('Nguoi 2 choi: '); Readln(i2); CHon(i2); IF i1=i2 then Write('2 nguoi hoa'); End; If (i1=1 and i2=2) or (i1=2 and i2=3) or (i1=3 and i2=1) then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); 2: Write('keo'); 3: Write('bao'); End; {ở đây thiếu 1 end của begin nữa} Begin Write('Nguoi 1 choi: '); Readln(i1); Chon(i1); Write('Nguoi 2 choi: '); Readln(i2); CHon(i2); IF i1=i2 then Write('2 nguoi hoa'); End;{end này là ở đâu thế, đâu có begin nữa mà} If (i1=1) and (i2=2) or (i1=2) and ( i2=3) or (i1=3) and ( i2=1) then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:integer); Begin Case i of 1: Write('bua'); 2: Write('keo'); 3: Write('bao'); End; End; Begin Write('Nguoi 1 choi: '); Readln(i1); Chon(i1); Write('Nguoi 2 choi: '); Readln(i2); CHon(i2); If i1=i2 then Write('2 nguoi hoa'); If (i1=1) and (i2=2) or (i1=2) and (i2=3) or (i1=3) and (i2=1) then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); 2: Write('keo'); 3: Write('bao'); End; Begin Write('Nguoi 1 choi: '); Readln(i1); Chon(i1); Write('Nguoi 2 choi: '); Readln(i2); CHon(i2); IF i1=i2 then Write('2 nguoi hoa'); End; If (i1=1 and i2=2) or (i1=2 and i2=3) or (i1=3 and i2=1) then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; . Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); . then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua'); . then Write('Nguoi1 thang') else Write('Nguoi 1 thua'); End; Readln; End. Program OTT; Var i1,i2:integer; Procedure Chon(var i:intger); begin Case i of 1: Write('bua');