Помогите с Pascal , буду очень благодарна

Question

Помогите с Pascal , буду очень благодарна

---

Comments

нет

---

добавила по примеру как решали но выдает ошибки

---

Естественно, условиям не соответствует

---

Попробуй в ABC исправить

---

writeLn('z',z); Делаешь вывод значений, а в переменных даже не объявила...

---

Identifier not found "z" как только добавляю z

---

Можно использовать другой язык программирования?

---

нет вот в чеми програма

---

проблема*

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadInteger3('Введи a,b,c через пробел:');
  var z:integer;
  var (mn,mx):=(Min(a,Min(b,c)),Max(a,b));
  if mn>0 or mx>0 then z:=a+b
  else
    if a*b<0 then z:=mx<br>    else z:=mn;
  Writeln(z)  
end.