Canon/open_set/26_op_priority4.pas
2024-03-09 20:11:27 +08:00

17 lines
279 B
ObjectPascal

program main;
var a,b,c,d,e: integer;
flag:boolean;
begin
read(a);
read(b);
read(c);
read(d);
read(e);
flag := false;
if ((a - b * c <> d - a / c) or (a * b / c = e + d) or (a + b + c = d + e)) then
begin
flag := true;
end;
if flag then
write(1);
end.