:составьте программу нахождения наибольшего среди тех элементов одновременного массива a(n),что лежат в интервале индексов массива (c,d) с обьяснением как вопще работает сама программа.

Var a,b:integer;
X: array [1..30] of Integer;
begin    
a := 1; 
while a <= 30 do 
begin           
read (X[a]);
a := a + 1    
End;      
readln
End.