15 lines
211 B
ObjectPascal
15 lines
211 B
ObjectPascal
// Ïðîãðàììà, âûâîäÿùàÿ òåêñò èç ñâîåãî ôàéëà
|
|
var
|
|
f: Text;
|
|
|
|
begin
|
|
assign(f,'Text1.pas');
|
|
reset(f);
|
|
while not eof(f) do
|
|
begin
|
|
var s: string;
|
|
readln(f,s);
|
|
writeln(s);
|
|
end;
|
|
close(f);
|
|
end. |