program ct;

uses crt;

var n,m,i,bt,cb:integer;

begin clrscr;

   write('Nhap so ban trong lop: '); readln(n);

   write('Nhap so ban nam trong lop: '); readln(m);

     bt:=0; cb:=0;

   for i:=1 to m do

     bt:=bt+(i-1);

   for i:=1 to n do

     cb:=cb+n*2;

   writeln('So lan bat tay la: ',bt);

   writeln('So lan cau Chao ban duoc noi la: ',cb);

readln;

end;

Học tốt!

program sochan;

uses crt;

var a:array of integer;

:integer;

begin

clrscr;

writeln(so lan bat tay la)

for i:=1 to n do

begin if a[i] mod 2=0 

writeln(a[i])

end;

writeln

readln;

end.

mình ko chắc lắm đâu nha ;)