Помогите, пожалуйста!
Составить программу на языке Паскаль, которая создает массив из 10 элементов целочисленного типа и заполняет массив первыми 10 четными числами (начиная с числа 2). Программа должна вывести значения последних 3 элементов массива.

const last = 3;//сколько последнихconst count = 10;//всего чиселvararr:array [1..count] of Integer;i,a:Integer;beginwhile i<count dobegina+=1;if a mod 2 = 0 thenbegini+=1;arr[i]:= a;end;end;for i:= 1 to last doWriteLn(arr[count-last+i]);end.