asba lik

program asba;
uses WinCrt;
Type
tab=array[1..100] of integer ;
var
i,n,nb:integer;
t,t1:tab;
begin;
write('donner n : ');
readln(n);
  for i:=1 to n do
    begin
   write('entrer t[',i,'] : ');
   readln(t[i]);
 end;
 write('T : ');
 for i:=1 to n do
 write(t[i],'   /   ');
 writeln;
for i:= 1 to n do
  t1[i]:=sqr(t[i] div 100)+sqr((t[i] mod 100) div 10)+sqr((t[i] mod 100) mod 10);
    write('T1 : ');
          for i:=1 to n do
     Begin
      if t1[i] mod 2 = 0 then
      nb:=nb+1;
            write(t1[i],'   ');
        end;
                writeln;
        writeln('les nombres paires: ',nb);
end.