Напишите пример задачи на двумерный массив из реальной жизни (с решением)

Огородники Ивановы засаживают свой огород только по клумбам главной диагонали. Сам огород представляет собой квадрат со стороной в 5 клумб. Найдите сколько арбузов вырастет на главной диагонали (число арбузов на каждой клумбе задаётся случайно).

var ar:array[1 ... 5,1 ... 5] of integer;

a, s:integer;

begin

randomize;

writeln ('Арбузы погрядочно:') ;

for a:=1 to 5 do

begin;

ar[a, a]:=random (30) ;

write (ar[a, a],',') ;

s:=s+ar[a, a];

end;

writeln;

writeln ('Количество арбузов:', s) ;

end.