Помоги сделать задачу в паскале, пожалуйста

Question

Помоги сделать задачу в паскале, пожалуйста

---

---

Answer 1

// PascalABC.NET 3.6

begin

 var n := 20;

 var a := ArrRandom(n, 2, 5);

 a.Println;

 var b := ArrRandom(n, 2, 5);

 b.Println;

 var c := ArrRandom(n, 2, 5);

 c.Println;

 var s := 0;

 for var i := 0 to n - 1 do

   if (a[i] = b[i]) and (b[i] = c[i]) then

     s += 3 * a[i];

 Print(s)

end.

---

Comments

Удивило, что в задании значения рандомно от 2 до 5, а в примере - единицы.

---

можно на новой версии Pascal,на моей не работает...

---

Это на самой последней написано. Скорее, у Вас версия старая. Напишите, какая.

---

Но вообще-то она будет работать на любой, года за два последних точно.