Bài 6:

Program bai6;

Uses crt;

Var nam,nu:integer;

Begin

Clrscr;

Write('Nhap so ban nam:'); Readln(nam);

Write('Nhap so ban nu:'); Readln(nu);

If nu>nam then writeln('So ban nu dong hon ban nam')

                  Else writeln('So ban nam dong hon ban nu');

Readln

End.

Bài 7:

Program bai7;

Uses crt;

Var a:real;

Begin

Clrscr;

Write('Nhap do dai canh hinh vuong:');

Readln(a);

Writeln('Chu vi:',a*4);

Writeln('Dien tich:',a*a);

Readln

End.

program bai_giai;
uses crt;
var bn,bg:longint;
begin
 clrscr;
  write('so ban trai la:');readln(bn);
  write('so ban gai la:');readln(bg);
  if(bn>bg)then write('ban trai nhieu hon ban gai')else write('ban gai nhieu hon ban trai');
 readln;
end.

-----------------------------

program bai_giai;
uses crt;
var a:longint;
begin
 clrscr;
  write('a=');readln(a);
  writeln('chu vi:=',a*4);
  write('dien tich:=',a*a);
 readln;
end.