Имеется целочисленный массив, состоящий из 10 элементов, элементы вводятся с клавиатуры,найти разность а[9]и а[3] элементов

var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do read(a[i]);
writeln('Разность=',a[9]-a[3]);
end.