Bài 1:
Program BTT;
Uses crt;
Var a,i: longint;
Begin
Clrscr;
Write('Nhap mot so bat ki: '); Readln(a);
Writeln('Bang cong tu 1 den 9 cua so ',a,': ');
For i:=1 to 9 do
Writeln(' ',a,' + ',i,' = ',a+i);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var a,i: longint;
Begin
Clrscr;
Write('Nhap mot so bat ki: '); Readln(a);
Writeln('Bang nhan tu 1 den 10 cua so ',a,': ');
For i:=1 to 10 do
Writeln(' ',a,' x ',i,' = ',a*i);
Readln
End.