program HelloWorld;
var x,y: integer;
begin
x:=4;
if (x<=0) then
y:=0;
if (x>=0) and (x<=1) then
y:=x;
if (x>1) then
y:=sqr(x);
write(y);
end.
program HelloWorld;
var x,y: integer;
begin
x:=4;
if (x<=0) then
y:=0;
if (x>=0) and (x<=1) then
y:=x;
if (x>1) then
y:=sqr(x);
write(y);
end.