Определите и запишите, что будет выдавать программа по завершению. uses crt; var mas, A: array[1..10] of integer; begin clrscr; mas[1]:=10; mas[5]:=25; mas[9]:=16; A[1]:=(mas[9]-mas[1])*mas[5]; write(A[1]); readkey; end.