blob: e7af7ce094ec38e6d64b1960569b8d4ae872eb78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 3977 }
{ Submitted by "lqs" on 2005-05-17 }
{ e-mail: lqs@users.sf.net }
var
n:integer;
f : text;
begin
assign(f,'tw3977.tmp');
rewrite(f);
write(f,'1');
close(f);
assign(input,'tw3977.tmp');
reset(input);
readln(n);
close(input);
erase(input);
end.
|
