Canon/open_set/30_logi_assign.pas

16 lines
174 B
ObjectPascal
Raw Normal View History

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