Почему не правильно?

Question

Почему не правильно?

Comments

А само задание как звучит ?

---

оно долгое

---

14 строчка, там после или перед else пишет ожидался оператор

Answer 1

Var
x,y,z:real;
begin
  readln(X,Y,Z);
  if((x=y) and (x=z) and (y=z) ) then
   begin
    x:=x*3;
    y:=y*3;
    z:=z*3;
    write('X: ',x,' Y: ',y,' Z: ',z);
   end else
   if (y=z) then
    begin
      x:=x*(-1);
      y:=y*(-1);
      z:=z*(-1);
      write('X: ',x,' Y: ',y,' Z: ',z);
    end else
    begin
      x:=222;
      y:=222;
      z:=222;
      write('X: ',x,' Y: ',y,' Z: ',z);
    end;
   readln
end.

Comments

ссылку кину с заданием?

---

Условие задачи скиньте уже в каком-нибудь виде

---

введите с клавиатуры три числа x,y,z. если числа равны, то увеличте их в три раза и выведите результат на экран.Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

---

иначе все числа сделайте равными 222 и выведите результат

---

Изменил

---

спасибо