задача в delphi7

[madman797]

напишите пожалуйста , что нужно добавить в эту функцию , что-бы при нажатии на клавишу D считалась диагональ ???надеюсь на вашу помощь

function summa (t:integer):integer;
var s,i:integer;
begin s:=0;
if n<=m then
for i:= to n-1 do
s:=s+a[i;i];
else for i:=0 to m-1 do
s:=s+a[i;i];
result:=s end;

[madman797]

если не трудно напишите функцию как должно быть