Нужно решить в ближайший час, макс. кол-во . Желательно с кратким пояснением Двое жителей острова, А и В, разговаривали между собой. Проходивший мимо незнакомец спросил у А: «Вы – рыцарь или лжец?». Тот ответил, но так неразборчиво, что незнакомец ничего не смог понять. Тогда незнакомец спросил у В: «Что сказал А?». «А сказал, что он – лжец», – ответил В. Кто из островитян А и В – рыцарь и кто – лжец?

А - рыцарь, В - лжец

Объяснение:

рыцарь — человек, всегда говорящий правду

лжец — человек, всегда говорящий ложь

В, возможно, соврал про А, но

Если А — рыцарь, то он скажет правду и сообщит, что он рыцарь.

Если А — лжец, то он скроет правду и сообщит, что он рыцарь

Отсюда следует, что В лжец, так как он лжет заведомо. Отсюда следует что а - рыцарь.

Принципы работы современной компьютерной мыши были сформулированы и впервые реализованы в 1940-ых годах века – устройство управления, использующее шар для боулинга в качестве элемента для определения координат объекта в режиме реального времени. Идея о создании мыши возникла у ученого Дугласа Энгельбарта еще в конце 50-х г.г.Её создателем стал Билл Инглиш, а Джефф Рулифсон написал программное обеспечение, необходимое для демонстрации технических возможностей мыши..Функциональность мышки обеспечивалась двумя дисками, встроенными взаимно перпендикулярно – их перемещение в четырех направлениях полностью соответствовало изменению координат объекта в двумерной системе координат.Компьютерная мышь сегодня – незаменимое устройство, значительно превосходящее известные сегодня аналоги по всем характеристикам.

По порядку: 
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0;  оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать  в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 
7) End. в конце цикла пишут end; 
8) в конце программы ставят End.

Откорректированный код:

Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
  end;
write('произведение нечётных чисел от 1 до 15 =',p);

End.