Как сделать чтобы при вводе 11-19, выдавало "лет" и можно было вводить только числа от 0 до 100? . программа delphi.

Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.

Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.

Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.

Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит  сказал" неправду "я абориген" а П передал он абориген.

В обоих случаях проводник абориген.

 

П- проводник

Ж - житель

// PascalABC.Net 3.0, сборка 1064
var
  s:string;
  n:integer;
begin
  Write('Введите строку: '); Readln(s);
  // a
  n:=Length(s);
  Writeln('Количество символов в строке равно ',n);
  // b
  Writeln(s[1],', ',s[2],', ',s[n]);
  // c
  Writeln(Ord(s[1]),', ',Ord(s[n]));
  // d
  if s[1]=s[n] then Writeln('Первый и последний символы совпадают')
  else Writeln('Первый и последний символы не совпадают');
  // e
  if n mod 2 = 0 then Writeln('Количество символов в строке четно')
  else Writeln('Количество символов в строке нечетно');
  // f
  if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"')
  else Writeln('Строка не содержит слово "мама"')
end.

Тестовое решение:
Введите строку: Тестовая строка со словом <мама> внутри
Количество символов в строке равно 39
Т, е, и
210, 232
Первый и последний символы не совпадают
Количество символов в строке нечетно
Строка содержит слово "мама"