14 lines
176 B
ObjectPascal
14 lines
176 B
ObjectPascal
|
begin
|
|||
|
|
var (x,y) := (5,-3);
|
|||
|
|
var q :=
|
|||
|
|
if x>0 then
|
|||
|
|
if y>0 then
|
|||
|
|
1
|
|||
|
|
else 4
|
|||
|
|
else
|
|||
|
|
if y>0 then
|
|||
|
|
2
|
|||
|
|
else 3;
|
|||
|
|
|
|||
|
|
Print(q)
|
|||
|
|
end.
|