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.