Question

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

Answer 1

var
  x: real;

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

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

Answer 2

Чем могу:)