Câu 1:

program dg;

uses cr;

begin

writeln('ho va ten :');

writeln('ngay sinh :);

writeln('gioi tinh :');

readln

end.

Câu 2:

progam  chia_het;
uses crt;
var a, b : integer;
begin
clrscr;
writeln(' Nhap so a va b :');
readln(a, b);
if (a mod b = 0 ) then writeln (' a chia het cho b')
else writeln ('a không chia hết b');
readln;
end.

Câu 3 :

program tinh;
uses crt;
var a,b,x:real;
begin
clrscr;
writeln('nhap a: '); readln( a);
write(' nhap b: '); readln( b);
if ((a=0 ) and (b=0)) then write('phuong trinh vo so nghiem') 
else 
if ((a=0) and (b<>0)) then write('pt vo nghiem') 
else
begin
x:=-b/a;
write('phuong trinh  co nghiem x :',x);
readln;
end;
end.

Câu 4 :

progam  tong ;
uses crt;
var a, b, k : integer;
begin
clrscr;
writeln(' Nhap so a, b va k:');
readln(a, b, k);
if (a > k ) and ( b > k) then writeln('tong cua a va b la :', a+b)

else writeln('a va b nho hon k');
readln;
end.