задача в 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;

[Katus]

извините, но я не понимаю в этой части кода ничего... не могла бы вы прислать весь код?

[3D Hunter]

Какая диагональ? Чего? Я не телепат, только учусь, так что могу ошибиться, уж извините. Треугольник имеете в виду? Чтобы по нажатию клавиши D на клавиатуре считалась гипотенуза по введенным катетам?