Pascal ABC, не получается вывести нужное

[AntonAr]

Дан целочисленный массив A размера N (< 15). Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем (3, 6, …), и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.

program Zad3;
Var A : array [1..14] of integer;
    B : array [1..4] of integer;
  i, N, C : Integer ;
begin
  writeln ('Введите N');
  readln(N);
  writeln ('Введите массив A : ');
  for i:= 1 to N do
begin 
  a[i] := random(11);
  writeln ('  ', a[i] );
end;
  writeln;
  i:=3; 
  c:=1;
  writeln ('Введите массив B :  ');
  while i <= N do 
  begin 
    b[c] := a[i];
    writeln('  ', b[c]);
    i:=i + 3;
  end;
  writeln ;
  writeln ('Размер массива B :  ', c);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от AntonAr

writeln ('Введите N');

ну, а где проверка, что N не больше 14?!

Сообщение от AntonAr

не получается вывести нужное

у Вас и заполнить не получается...

Сообщение от AntonAr

writeln;
  i:=3; 
  c:=1;
  writeln ('Введите массив B :  ');
  while i <= N do 
  begin 
    b[c] := a[i];
    writeln('  ', b[c]);
    i:=i + 3;
  end;
  writeln ;
  writeln ('Размер массива B :  ', c);

попробуйте так:

  WriteLn;
  i:=3; 
  c:=0;
  while i <= N do 
  begin
    inc(c); 
    b[c] := a[i];
    i:=i + 3;
  end;
  writeLn('Размер массива B :  ', c);
  WriteLn(' Массив B: ');
  for i:=1 to c do Write(B[i]:3);
  WriteLn;