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

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