uses wincrt;
type
tab=array [1..20] of integer;
var
t:tab;
n:integer;
procedure saisie (var n:integer);
begin
		repeat
	write ('donner le taille de tableau: '); readln(n);
	until n in[2..10];
end;


procedure remplire (var t:tab;n:integer);
var
i:integer;
begin
		for i:=1 to n do
	begin
	repeat
	write('t[',i,']= '); readln (t[i]);
until (t[i] in [10..99]) ;
end;
end;

procedure afficher(t:tab;n:integer);
var
i,j:integer;
begin
	for j:=0 to 9 do
	for i:=1 to n do
	if t[i]=(j*(j+1)) then
  writeln ('les nombre oblongs sont ',t[i]);
end;



begin
saisie (n);
remplire (t,n);
afficher (t,n);
end.