bài 1:
uses crt;
begin
clrscr;
writeln('Nhap ho ten cua ban'); // vd <writeln('Tran Van A');>
writeln('Nhap ngay thang nam sinh cua ban'); // vd writeln('5-6-2007');
writeln('Nhap dia chi cua ban'); // vd writeln('123 abc');
writeln('Nhap so dien thoai cua ban'); // vd writeln('0976734243');
writeln('Nhap email cua ban'); // vd writeln('Tranvana@gmail.com');
readln
end.
bài 2:
uses crt;
var i :char;
begin
clrscr;
write('Bang chu cai tieng anh ');
for i := 'A' to 'Z' do write(i,#32);
readln
end.
Bài 3:
uses crt;
var i:longint;
begin
clrscr;
writeln('Bang cuu chuong 5');
for i := 1 to 10 do
writeln('5 x ',i,' = ',5*i);
readln
end.