4/

Uses crt;
Var a,e:integer;
  Begin
    Clrscr;
  readln(a);

readln(e);

if a>e thẹn writeln('tuổi a lớn hơn')

else writeln('tuổi e lớn hơn');

readln;
    end.

5/Uses crt;
Var tong,n:integer;
  Begin
    Clrscr;
  tong:=0;readln(n);
   for i:=1 to n do
    begin
    tong:=tong+i;

end;
    writeln('tong cac so tu nhien n la:',tong);
    readln;
    end.

6/

Uses crt;
Var tong,i:integer;
  Begin
    Clrscr;
    i:=1; tong:=0;
    While i<1000 do
    begin
    tong:=tong+i;
    i:=i+1;
    end;
    writeln('tong cac so tu nhien nho hon 1000 la:',tong);
    readln;
    end.

Câu 1:

program kaito;

uses crt;

begin

   clrscr;

   writeln('   *   ');

   writeln('*  *  *');

   writeln('   *   ');

readln

end.

Câu 2:

program kaito;

uses crt;

begin

   clrscr;

   writeln('2 x (1/5+2^3) = ',2*(1/5+2*2*2));

readln

end.

Câu 3:

program kaito;

uses crt;

var s, r: real;

const pi=3.14;

begin

   clrscr;

   write('Nhap ban kinh r = '); readln(r);

   s:=pi*r*r;

   writeln('Dien tich hinh tron la: ',s);

   readln;

end.

Câu 4:

program kaito;

uses crt;

var a, b: integer;

begin

   clrscr;

   write('Nhap so tuoi cua anh: '); readln(a);

   write('Nhap so tuoi cua em: '); readln(b);

      if a<b then writeln('Em nhieu tuoi hon.')

      else

       if a=b then writen('Hai anh em bằng tuoi nhau.')

      else writeln('Anh nhieu tuoi hon.');

   readln;

end.

Câu 5:

program kaito;

uses crt;

var s, i, n: integer;

begin

   clrscr;

   write('n = '); readln(n);

   for i:=1 to n do s:=s+i;

   writeln('Tong S = ',s);

   readln;

end.

câu 6:

program kaito;

uses crt;

var n, s: integer;

begin

   clrscr;

   while s<1000 do begin n:=n+1; s:=s+n; end;

   writeln('Tong S = ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!