Canon/open_set/11_subc.pas

8 lines
70 B
ObjectPascal
Raw Permalink Normal View History

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