Canon/open_set/27_op_priority5.pas

16 lines
286 B
ObjectPascal
Raw Permalink Normal View History

2024-03-09 20:11:27 +08:00
program main;
var a,b,c,d,e: integer; flag: boolean;
begin
a := 1;
b := 0;
c := 1;
d := 2;
e := 4;
flag := false;
if ((a * b / c = e + d) and (a * (a + b) + c <= d + e) or (a - (b * c) = d - a / c)) then
begin
flag := true;
end;
if (flag) then
write(1);
end.