program duongcheochinhphu;
uses crt;
var
A: array[1..5,1..5] of integer;
X: integer; {soCotTrongMang}
Y: integer; {sohang TrongMang}{1}
i,j, SumCheoChinh, SumCheoPhu,sumcheo,sumbinhphuong: integer;
sumcan:real;
begin
      clrscr;
      SumCheoChinh:= 0; SumCheoPhu:=0;sumbinhphuong:=0;sumcan:=0; X:=5;Y:=5;
      For i:= 1 to Y do
      Begin
        For j:= 1 to X do
        Begin
        Writeln('Nhap phan tu a[' ,i ,',',j,']:'); Readln(a[i,j]);
        End;
    End;
    For i := 1 to Y do
        Begin
        If  (i mod 2)=0 then SumBinhPhuong:= SumBinhPhuong + sqr(A[i,j]);
        If  (j mod 2 )<>0 then SumCan := SumCan + sqrt(A[i,j]);{2}
        For j:= 1 to X do
            begin
              If  j =X-i+1 then { duong cheo chinh }{3}
              begin
              SumCheoChinh := SumCheoChinh +A[i,j];
              End;
              If i=j then {duong cheo phu}{4}
                begin
       SumCheoPhu :=SumCheoPhu +A[i,j];
                End;
            End;
            Sumcheo:=sumcheochinh+sumcheophu;{5}
        End;
        Writeln('tongphantuduongcheochinhphu',SumCheo);
        writeln('tongbinhphuonghangchan',sumbinhphuong);
        writeln('tongcanbac2',sumcan);
        readln;
 End.