Chương trình trong ảnh là sai nên không thể chạy được,

và mình đã sửa lại.

program Bai_KT_15;
uses crt;
Var n, a1,a3,i,j1,j2,a2,a4,j :Integer;
Begin
    CLRSCR;
    Writeln(' Cau a');
    Writeln(' al  a2  a3  a4 ');
    N:= 6; a1:=1; a2:=2; a3:=3;a4:=4;
    While 2 < n do 
        begin
            if  a1 div 2 > 1 then a1:= a1 div 2 
            else a2:=a4-2;
            A3:= a1+a2-a3;
            If a4 mod 2 = 0 then a4:= a4 +1;
            N:= n-2;
            Writeln(' ', a1,';  ', a2,';  ',a3,';  ',a4);
        End;
    Writeln(' Cau b');
    Writeln ('i ; j1 ; j2 ');
    j1:=0; j2:=0;
    For i:= 3 To 5 do
        begin
            j1:= j1+5;
            j2:= j2+i;
            Writeln(i,' ; ', j1, ' ; ', j2);
        End;
Readln;
End.