Дан фрагмент базы данных «регионы франции». № п/п регион население, 1999 г. (млн чел.) площадь (тыс. км2) 1 юг - пиренеи 2 551 687 45 348 2 аквитания 2 908 359 41 308 3 лотарингия 2 310 376 23 547 4 овернь 1 308 878 26 013 выберите регионы, удовлетворяющие условиям: - население должно быть больше 1 500 000, но меньше 2 600 000 (млн -площадь должна быть меньше 41 000, но больше 21 000 (тыс. км2 a) юг- пиренеи b) аквитания, юг- пиренеи c) лотарингия d) лотарингия, овернь

ответ : C
2310376 > 1500000 но меньше 2600000,
23547 меньше 41000, но больше 21000

1. Жигули, с единицы номер. 
2. Москвич, с семерки номер. 
3. Иномарка, не с единицы. 
Каждый сказал один факт правду и один - ложь. 
Предположим, что первый верно указал цифру 1. Значит, он обманул относительно жигулей. Раз номер с единицы начинается, то другие двое обманули относительно номера, а значит, верно указали марку машины. Но они не могли оба верно указать марку, ведь один сказал - "Москвич", а второй - "иномарка". Значит первое предположение, что номер начинается с единицы - привело нас в тупик. Раз номер не с единички, то первый обманул про номер, значит правду сказал про марку - это "Жигули". 
Раз марка жигули, то второй обманул про Москвич, а значит верно сказал про номер с семерки. Третий значит, обманул про иномарку, но верно сказал, что номер не с единицы начинается. 
Итого - это были "Жигули" и номер начинается с семерки.

Const
  nn=100;

var
  i,n,d:integer;
  a:array[1..nn] of integer;

begin
  Write('n = '); Read(n);
  Randomize;
  d:=0;
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]>0 then d:=d+1
    else
      if a[i]<0 then d:=d-1
    end;
  Writeln;
  if d>0 then Writeln('Положительных чисел больше')
  else
    if d<0 then Writeln('Отрицательных чисел больше')
    else Writeln('Положительных и отрицательных поровну')
end.

Пример
n = 13
-1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7
Положительных чисел больше