mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-03 17:26:05 +02:00
16 lines
202 B
ObjectPascal
16 lines
202 B
ObjectPascal
PROGRAM t10;
|
|
|
|
USES CRT;
|
|
|
|
VAR S: STRING;
|
|
X: BYTE;
|
|
|
|
|
|
BEGIN
|
|
S := '';
|
|
FOR X := 1 TO 253 DO S:=S+'-';
|
|
S := S+'_!';
|
|
WRITE(S);
|
|
WRITE('*',S);
|
|
END.
|
|
|