1 1.1 christos -- Copyright 2023-2024 Free Software Foundation, Inc. 2 1.1 christos -- 3 1.1 christos -- This program is free software; you can redistribute it and/or modify 4 1.1 christos -- it under the terms of the GNU General Public License as published by 5 1.1 christos -- the Free Software Foundation; either version 3 of the License, or 6 1.1 christos -- (at your option) any later version. 7 1.1 christos -- 8 1.1 christos -- This program is distributed in the hope that it will be useful, 9 1.1 christos -- but WITHOUT ANY WARRANTY; without even the implied warranty of 10 1.1 christos -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11 1.1 christos -- GNU General Public License for more details. 12 1.1 christos -- 13 1.1 christos -- You should have received a copy of the GNU General Public License 14 1.1 christos -- along with this program. If not, see <http://www.gnu.org/licenses/>. 15 1.1 christos 16 1.1 christos with Pck; use Pck; 17 1.1 christos 18 1.1 christos procedure Prog is 19 1.1 christos X : Integer := Plus_One (23); 20 1.1 christos begin 21 1.1 christos null; -- STOP 22 1.1 christos end Prog; 23