подпрограмма-функция нахождения четных чисел Pascal ABC

[программирование]

program zd;
uses crt;
const n=10;

var a: array [1..n] of integer;
i: integer;
function F(c: integer): boolean;
begin
F:=not odd(c);

end;
Begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
F(a[i]);
readln;
End.


программа запускается, но можно ввести только 10 цифр и конец программы.

[BDA]

Так, уже лучше.

var
  a: integer;
...
repeat
  readln(a);
  writeln(F(a));
until a = 0;

Будет считывать числа до тех пор, пока не будет введен 0 (для него тоже будет выдан ответ).
Не забывайте о кнопочке Решетка # для оформления кода.

[программирование]

program zd;
uses crt;
const n=10;

var a: array [1..n] of integer;
i: integer;
function F(c: integer): boolean;
begin
F:=not odd(c);

end;
Begin
repeat
readln(i);
writeln(F(i));
until i= 0;

readln;
End.


огромное спасибо, за помощь! Эта программа работает правильно.

[BDA]

program zd;
uses crt;

var
  i: integer;

function F(c: integer): boolean;
begin
  F:=not odd(c);
end;

Begin
  repeat
    readln(i);
    writeln(F(i));
  until i = 0;
  readln;
End.

UPD
Пожалуйста. Общими усилиями...

[программирование]

огромное спасибо, за то, что помогли написать программу!!!