Кто-нибудь может прямо построчно объяснить как это работает, и исправить код в случае ошибки? function find(x:integer):boolean;
begin
if pos('7',IntToStr(x))=0
then result:=False
else result:=True
end;
const n = 1000;
var
a:array[1..n] of integer;
i:integer;i,o: file of text;
begin
AssignFile(i, 'Input.dat');
AssignFile(o, 'Output.dat');
Rewrite(o);
Reset(i);
for i:=1 to n do
readln(i,a[i]);
for i:=1 to n do
if find(a[i])
then writeln(o,a[i]);
.
CloseFile(i);
CloseFile(o);
end.
begin
if pos('7',IntToStr(x))=0
then result:=False
else result:=True
end;
const n = 1000;
var
a:array[1..n] of integer;
i:integer;i,o: file of text;
begin
AssignFile(i, 'Input.dat');
AssignFile(o, 'Output.dat');
Rewrite(o);
Reset(i);
for i:=1 to n do
readln(i,a[i]);
for i:=1 to n do
if find(a[i])
then writeln(o,a[i]);
.
CloseFile(i);
CloseFile(o);
end.