Задача 6 Урок 15

Задача 6 Урок 15

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

program lesson15_6;
var
    arr: array[1..3] of integer;
    a, i: integer;
begin
    i := 1;
    repeat
        write('enter number a: ');
        readln(a);
        if a mod 2 = -1 then
        begin
            arr[i] := a;
            i := i + 1;
		end;
	until i > 3;
    for i := low(arr) to high(arr) do
        write(arr[i], ' ');
    readln();
end.