Дан массив из 10 целых чисел от -20 до 20 и целое число (вводится с клавиатуры).…

Program chik; var a: array[1… 1000]of integer; max,p,i: integer; beginfor i: =1 to 10 dobeginread (a[i]); end; max: =1; p: =1; for i: =2 to 10 dobeginif (a[i]>max) then beginmax: =a[i]; p: =i; end; end; write (max,',p); end.