{$I-}
var
filename: string;
f: text;
min,max,p,t,c: integer;
begin
write('Введите имя входного файла: ');
repeat
readln(filename);
until length(filename)>0;
assign(f,filename);
reset(f);
if IOResult<>0 then
begin
{close(f);}
writeln('Файл ',filename,' не существует');
readln;
halt;
end;
write('Введите мин. число: ');
readln(min);
write('Введите макс. число: ');
readln(max);
p:=1;
c:=0;
writeln;
writeln('Числа, меньшие ',max,' и большие ',min,' : ');
repeat
read(f,t);
if IOResult<>0 then
begin
close(f);
writeln('Файл ',filename,' не соответствует формату');
readln;
halt;
end else if (t<max)and(t>min) then begin writeln (t); p:=p*t; inc(c); end;
until SeekEof(f);
close(f);
if c>0 then writeln('Их произведение равно ',p)
else writeln('В файле нет чисел, меньших числа ',max,' и больших числа ',min);
readln;
end.
|
