Canon/open_set/29_unary_op2.pas

17 lines
201 B
ObjectPascal
Raw Normal View History

2024-03-09 20:11:27 +08:00
program main;
var a,b: integer;
begin
a := 56;
b := 4;
a := a - - 4 + +b;
if (- not not not a <> 65) then
begin
a := - - -1;
end
else
begin
a := 0 + +b;
end;
write(a);
end.