Определите и запишите, что будет выдавать программа по завершению. 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.