blob: d4519a48adc5f823ac110cb3f95ee06ac2eda18f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3495 }
{ Submitted by "Ido Kanner" on 2005-01-01 }
{ e-mail: kanerido@actcom.net.il }
{$MACRO ON}
program Hi;
{$DEFINE ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__________________________________________________________________________________________________________________________________________________________________ := 10}
begin
writeln (ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__________________________________________________________________________________________________________________________________________________________________);
end.
|
