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