5 lines
54 B
Text
5 lines
54 B
Text
if x > 0 then
|
|
res := x;
|
|
else
|
|
res := -x;
|
|
end if;
|
if x > 0 then
|
|
res := x;
|
|
else
|
|
res := -x;
|
|
end if;
|