Построить схему и таблицу истинности

5 тысячелетие до нашей эры:
Ок. 5000 до н. э. — распад алтайского праязыка (по данным глоттохронологии)
Ок. 5000 до н. э. — возделывание риса (как одного из основных продуктов питания) в Юго-Восточной Азии.
Ок. 5000 до н. э. — начало возделывания кукурузы на территории современной Мексики.
Ок. 5000 до н. э. — появление первых жителей на месте Библа, одного из древнейших городов мира.
4236 до н. э. — первая дата в древнеегипетском календаре.

4 тысячелетие до нашей эры:
1-я пол. — бассейновая система орошения в Египте.
Середина тысячелетия — строительство Стоунхенджа.
Ок. 3500 до н. э. — основание первого города-государства Урук в Месопотамии.
2-я пол. — возникновение единых Верхнеегипетского и Нижнеегипетского царств.
Конец — объединение Египта под властью Верхнего Египта. ... надеюсь  ты    это  имела  в виду или  нет?

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.