11 lines
115 B
ObjectPascal
11 lines
115 B
ObjectPascal
type my = array[1..10] of integer;
|
|
|
|
var
|
|
f: file of my;
|
|
m: my;
|
|
|
|
begin
|
|
write(f,m);
|
|
read(f,m);
|
|
readln;
|
|
end. |