Canon/open_set/10_sub2.pas

10 lines
85 B
ObjectPascal
Raw Normal View History

2024-03-09 20:11:27 +08:00
program main;
const
a = 10;
var
b: integer;
begin
b := 2;
write(b - a);
end.