mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:59:26 +02:00
13 lines
211 B
ObjectPascal
13 lines
211 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);
|
|
end.
|