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

10 lines
85 B
ObjectPascal

program main;
const
a = 10;
var
b: integer;
begin
b := 2;
write(b - a);
end.