mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
14 lines
227 B
ObjectPascal
14 lines
227 B
ObjectPascal
var
|
|
outf : file of byte;
|
|
w : word;
|
|
begin
|
|
assign(outf, 'tb0466.tmp');
|
|
rewrite(outf);
|
|
{only explicit typecasting helps: byte(10)}
|
|
write(outf, 10);
|
|
w:=20;
|
|
write(outf, w);
|
|
close(outf);
|
|
erase(outf);
|
|
end.
|