код из Паскаля в Delphi (Дан целочисленный массив A. Переписать в новый массив В элементы с порядковыми номерами, кратными трём

[ALEXandr20333]

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

program Array56;
var
a: array [1..15] of integer;
b: array [1..15] of integer;
N:integer;
i:integer; // счетчик в цикле
begin
// ввод размера масива
writeln('Введите N (N<=15)');
readln(N);
writeln('Значения массива А');
// ввод значений масива
for i:=1 to n do begin write('a[',i,']=');readln(A[i]); end;
// решение
// в цикле реализован проход по номерам кратным 3
//и формирование нового массива
for i:=1 to n div 3 do
begin
b[i]:=a[i*3];
end;
// вывод резхультата
Writeln('Ответ');
Writeln('Размер полученного массива ',(n div 3));
Write('B[]: '); for i:=1 to (n div 3) do Write(B[i],' ');

[zvoronz]

Что именно нужно перенести в Делфи?
Создайте в Делфи проект консольного приложения и перенесите код как есть, почти как есть, там мизерные исправления нужно будет сделать.

[ALEXandr20333]

мне нельзя через консоль( нужно через форму...помогите плиз...

[Stilet]

По аналогии с тем, что я дал не удается?

[EUgen\96]

Да, можно и мне помочь с этой задачей!!!!

[EUgen\96]

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

Вот задача...я чето там пытался сделать .... но все равно что-то не то .....

[Serge_Bliznykov]

ну, раз хоть какие-то попытки сделать есть и выложен исходный код проекта, то вот, держите вариант решения: proj2.rar

[Sciv]

через while проще было сделать. И без условного оператора. А еще - второй массив имеет размерность меньше первого раза эдак в три, зачем его тоже от 1 до 15 задавать?

[Serge_Bliznykov]

Sciv, это Вы, надеюсь, не мне вопросы задаёте?