Заполните целочисленный массив а размерностью 10 элементов по формуле 2 + 3m, где m — порядковый номер элемента массива, и выведите его на экран монитора в одну строку. сохраните программу и оправьте на проверку учителю.

Var a:array[1..10] of integer;
m:integer;
begin
for m:=1 to 10 do
begin;
a[m]:=2+3*m;
writeln(a[m]);
end;
end.

Var
  A: Array[10] of integer;
  i:integer;
Begin
  for i := 1 to 10 do
    A[i] = 2 + 3*i;
  for i := 1 to 9 do
    write(A[i], ' ');
  writeln(A[10]);
End.