13 lines
297 B
ObjectPascal
13 lines
297 B
ObjectPascal
// Ïðîãðàììà, âûâîäÿùàÿ òåêñò â ôàéë a.txt
|
|
var
|
|
f: Text;
|
|
a: array of string := ('Êàæäûé','îõîòíèê','æåëàåò','çíàòü','ãäå','ñèäèò','ôàçàí');
|
|
|
|
begin
|
|
assign(f,'a.txt');
|
|
rewrite(f);
|
|
for var i:=0 to a.Length-1 do
|
|
writeln(f,a[i]);
|
|
close(f);
|
|
writeln('Òåêñò çàïèñàí â ôàéë a.txt');
|
|
end. |