program usl_oper;
var
x, y : integer;
begin
write('x=');
read(x);
if x<=0 then
y:=0
else
if x<=1 then
y:=x
y:=sqr(x);
write('y=',y)
end.
program usl_oper;
var
x, y : integer;
begin
write('x=');
read(x);
if x<=0 then
y:=0
else
if x<=1 then
y:=x
else
y:=sqr(x);
write('y=',y)
end.