Помогите с паскалем ABC

Question

Помогите с паскалем ABC

---

Answer 1

Var
  x: real;

begin
  readln(x);
  if (x <= 0) then<br>    x := 0;
  writeln('y = ', x);
end.
------
Или так:
var
  x: real;

begin
  readln(x);
  writeln('y = ', x > 0 ? x : 0);
end.

Comments

спасибо большое!!

---

Чем могу:)