Я Ибрагим,Ибрагим из Парги
Раб обращённый насильно в ислам в 10 лет
Ибрагим,который в 17 лет стал главным сокольничим Шехзаде Сулеймана В 25 хранителем Султанских покоев Султана Сулейман ХанаВ 27 Великим Визирем своего Повелителя,разделивший с ним власть
Ибрагим,который всё время носит в себе ад и рай
Дружит с собственным шейтаном,но верен своему шейху
И постоянно находится на страже великих врат,стоящих на границе ада и рая
Раб Ибрагим
Ибрагим - близкий друг Султана Сулеймана,посвящённый в его тайны,но всё время ходящий по лезвию ножа
Ибрагим,который каждый день видит свой труп в бездонных глазах своего Государя
Ибрагим,который каждый раз глядя в глаза своего Повелителя идёт к смерти
Ибрагим о смерти которого просят совершая намазы
Ибрагим,сын греческого рыбака из Парги МанолисаИбрагим - Паша,Великий Визирь Османской империи,главнокомандующий славным войском Османским,единственный муж дочери династии Хатидже СултанТебе мало?Неужели не закончится эта война за власть?Сколько ещё ты будешь марать свои руки кровью и ядом?Сколько ещё позволишь врагу разбивать тебе сердце?Насколько же одна соперница может быть опаснее и сладкоречивее 10 соперников?Не удивляйся,Ибрагим,не удивляйся ТеоОна - такая же отступница, как и тыУкраинка АлександраТы сам выбрал,сам создал для себя дьяволаТы отступил ради Султана Сулеймана,ты проявил почтение и выиграл!Теперь опять проявляй почтение,опять усмири своё тщеславиеУсмири,чтобы,накопить достаточно ярости для сражения...
Я нахожусь между раем и адом,и я в чистилищеТак закончится моя жизнь?Когда я вижу ваше лицо,открываются сады вашего рая,и я иду к своему счастьюВдали от вас адское пламя сжигает мою душу - я горюЯ борюсь с судьбой
Я раб Ибрагим
CONST N=30;
VAR
P:ARRAY[0..N] OF INTEGER;
I,T:BYTE; S:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение массива случайными числами }
WriteLn(' Значения элементов массива');
FOR I:=1 TO N DO Begin
P[I]:=Random(30); Write(P[I]:3);
End; WriteLn;
Write(' Введите значение переменной '); ReadLn(T);
S:=0;
FOR I:=1 TO N DO
IF P[I]>T THEN S:=S+P[I]; { сумма элементов массива > T }
WriteLn(' Сумма элементов массива > заданного значения = ',S);
END.