mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 01:39:35 +01:00
22 lines
242 B
ObjectPascal
22 lines
242 B
ObjectPascal
PROGRAM t9;
|
|
|
|
PROCEDURE Eeep;
|
|
VAR
|
|
X: BYTE;
|
|
NewNG: STRING;
|
|
PROCEDURE SubProc;
|
|
BEGIN
|
|
newng := 'alt';
|
|
FOR X := 1 TO LENGTH(NewNG) DO BEGIN
|
|
WRITELN(X);
|
|
END;
|
|
END;
|
|
BEGIN
|
|
SubProc;
|
|
END;
|
|
|
|
BEGIN
|
|
Eeep;
|
|
END.
|
|
|