Как стать хитрим
Если дадите метод отмечу лучший

Я Ибрагим,Ибрагим из Парги

Раб обращённый насильно в ислам в 10 лет

Ибрагим,который в 17 лет стал главным сокольничим Шехзаде Сулеймана В 25 хранителем Султанских покоев Султана Сулейман ХанаВ 27 Великим Визирем своего Повелителя,разделивший с ним власть

Ибрагим,который всё время носит в себе ад и рай

Дружит с собственным шейтаном,но верен своему шейху

И постоянно находится на страже великих врат,стоящих на границе ада и рая

Раб Ибрагим

Ибрагим - близкий друг Султана Сулеймана,посвящённый в его тайны,но всё время ходящий по лезвию ножа

Ибрагим,который каждый день видит свой труп в бездонных глазах своего Государя

Ибрагим,который каждый раз глядя в глаза своего Повелителя идёт к смерти

Ибрагим о смерти которого просят совершая намазы

Ибрагим,сын греческого рыбака из Парги МанолисаИбрагим - Паша,Великий Визирь Османской империи,главнокомандующий славным войском Османским,единственный муж дочери династии Хатидже СултанТебе мало?Неужели не закончится эта война за власть?Сколько ещё ты будешь марать свои руки кровью и ядом?Сколько ещё позволишь врагу разбивать тебе сердце?Насколько же одна соперница может быть опаснее и сладкоречивее 10 соперников?Не удивляйся,Ибрагим,не удивляйся ТеоОна - такая же отступница, как и тыУкраинка АлександраТы сам выбрал,сам создал для себя дьяволаТы отступил ради Султана Сулеймана,ты проявил почтение и выиграл!Теперь опять проявляй почтение,опять усмири своё тщеславиеУсмири,чтобы,накопить достаточно ярости для сражения...

Я нахожусь между раем и адом,и я в чистилищеТак закончится моя жизнь?Когда я вижу ваше лицо,открываются сады вашего рая,и я иду к своему счастьюВдали от вас адское пламя сжигает мою душу - я горюЯ борюсь с судьбой

Я раб Ибрагим

// F#
open System
[<EntryPoint>]
let main argv =
    let mutable sum = 0
    let mutable i = 0
    let array = [19..51]
    while i < array.Length do
        let value = array.Item i
        if 5 % value = 0 then
             sum <- sum + value
        i <- i+1
    Console.WriteLine sum
    Console.ReadKey true |> ignore
    0

// Pascal (for)
  var sum : integer;
      i: integer;
begin
  sum := 0;
  i := 0;
  for i:=19 to 51 do
  begin
    if i mod 5 = 0 then
      sum := sum + i;
  end;
  writeln(sum);
end.

// Pascal
  var sum : integer;
      i: integer;
begin
  sum := 0;
  i := 19;
  while (i <= 51) do
  begin
    if i mod 5 = 0 then
      sum := sum + i;
    i := i + 1;
  end;
  writeln(sum);
end.