// PascalABC.Net
var x, y: integer;
begin
write('Введите x: ');
readln(x);
if x > 1 then
y := x + 50;
if x < 1 then
y := 2*x + 20;
if (x < 1) or (x > -1) then
y := 0;
writeln('y = ', y);
end.
// PascalABC.Net
var x, y: integer;
begin
write('Введите x: ');
readln(x);
if x > 1 then
y := x + 50;
if x < 1 then
y := 2*x + 20;
if (x < 1) or (x > -1) then
y := 0;
writeln('y = ', y);
end.