Помогите пожалуйста написать программу: заполнить массив 20 первыми…

uses crt; var a: array[1… 20] of integer; i: integer; beginwriteln ('Исходный массив: '); for i: =1 to 20 do begin a[i]: =299+i*13; write (a[i]: 4); end; end. Здесь массив заполняется числами, кратными 13. Для 17 все то же самое, только a[i]: =289+i*17