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!