Bài 1: Bảng cửu chương
program bangcuuchuong;
uses crt;
var i,j:byte;
begin
clrscr;
writeln('BANG CUU CHUONG');
i:=1;
while i<=9 do
begin
j:=1;
writeln('Bang cuu chuong 1:')
while j<=10 do
begin
writeln(i,' x ',j,'= ',i*j);
j:=j+1;
end;
delay(500);
end;
readln;
end.
Bài 2:
program insotu1den5;
uses crt;
var i:byte;
begin
clrscr;
i:=1;
while i<=5 do
begin
write(i,' ');
i:=i+1;
end;
readln;
end.