Автор - 1337etomoyapochta
program HelloWorld;
var a:Array [1..7] of integer;
var i:integer;
begin
//Тут присваиваешь значения элементам массива например: a[0]:=1;
For i:=1 to 7 do
begin
a[i]:=a[i]+3;
writeln(a[i]);
end;
end.