[Future]

Код:

var
a:array[1..10] of integer;
min:integer;
i:integer;
begin
for i := 1 to 10 do
  min:= a[1];

  for i := 2 to 10 do
  begin
      Write('Enter next element: ');
      ReadLn(a[i]);
    end;
    if a[i] < min then
      min := a[i];
  Write(min);
  read;

end.
var a: integer;
begin
  write('Введите a: ');
  read(a);
  if a mod 2 = 0 then
    write('Это четное число');
    end;
end.

Админ: Напоминаю про оформление кода! Иначе последуют санкции!

Может так?я не очень понял ,как делать.