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