program A;

uses crt;

var i,n,d,t:integer;

       A:array[1..1000] of integer;

begin

clrscr;

write('Nhap so luong phan tu: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

d:=0; t:=0;

for i:=1 to n do

 begin

  write('A[',i,']= ');

  readln(A[i]);

  if A[i] mod 3=0 then

   begin

    d:=d+1; 

    t:=t+A[i];

   end;

 end;

write('Co ',d,' phan tu cua mang la boi cua 3 va tong cua chung la: ',t);

readln

end.

var d,g:text; m,s:real; x,y:array[1..10000000]of longint;
n,i,j,vt:longint;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      assign(g,'output.pas');rewrite(g);
         readln(d,n);
         for i:=1 to n do read(d,x[i],y[i]);
         for i:=1 to n do
            begin
               s:=0;
               for j:=1 to n do s:=s+sqrt(sqr(x[j]-x[i])+sqr(y[j]-y[i]));
               if s>m then begin vt:=i; m:=s; end;
            end;
         writeln(g,vt,' ',m:0:3);
      close(g);
   close(d);
end.

program A01;

uses crt;

var r, d : real;

begin

clrscr;

write('Nhap chieu rong = '); readln(r);

d := 3 * r;

write('Dien tich hinh A = ', d * r + (r * r * 3.14) / 2 : 2 : 2);

readln

end.