câu 1

progarm tu_bach;

begin

writeln('toi ten la abc');

writeln('toi da xx tuoi');

writeln('que toi o xx');

writeln('so thich cua toi la luot web');

writeln('toi cao 157cm');

writeln('can nang xx kg');

writeln('mau xanh lo la mau toi yeu thich');

writeln('con so 9 la so toi yeu thich');

writeln('toi thich an nhung thu co vi ngot ngao');

writeln('toi khong de tin tuong vao nguoi khac');

writeln('toi ghet nhung loai nguoi hai mat');

writeln('than tuong cua toi la xx');

writeln('the loai nhac toi ua thich la xx;);

writeln('mon the thao toi yeu thich  la xx');

writeln('the loai phim toi thich la xx;);

writeln('toi rat khong thich doc sach');

writeln('toi rat thich di du lich');

writeln('toi thich suu tam xx');

writeln('toi thich choi game');

writeln('toi rat thich hat va nhay');

end.

câu 2

program so_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap so a:');

readln(a);

if (a mod 2 = 0) then writeln(a,' khong phai la so le ')

else  writeln(a,' la so le ');

readln

end.