var
f1,f2:text;
di,i:real;
BEGIN
writeln('Создание файла file1.txt');
assign(f1,'file1.txt');
rewrite(f1);
di:=0.5;
i:=-100;
while i<=100 do
begin
writeln(f1,i:4:1);
i:=i+di;
end;
close(f1);
writeln('Файл file1.txt создан!');
writeln;
writeln('Создание файла file2.txt и запись в него те числа, целая часть ');
writeln('которых является четным числом');
reset(f1);
assign(f2,'file2.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,i); {считать из файла f1 число i }
if (trunc(i)mod 2)=0 then writeln(f2,i:4:1); {если челая часть числа trunc(i) }
{делится на 2 и остаток от деления }
{равен 0, тогда записать число i в }
{файл f2 }
end;
close(f1);
close(f2);
writeln('Файл file2.txt создан!');
writeln;
writeln('Нажмите Enter для печати всех элементов исходного файла...');
readln;
reset(f1);
while not eof(f1) do
begin
readln(f1,i);
write(' ',i:4:1);
end;
close(f1);
writeln;
writeln('Нажмите Enter для печати отрицательных элементов исходного файла...');
readln;
reset(f1);
while not eof(f1) do
begin
readln(f1,i);
if i<0 then write(' ',i:4:1);
end;
close(f1);
writeln;
writeln('Нажмите Enter для печати всех элементов второго файла...');
readln;
reset(f2);
while not eof(f2) do
begin
readln(f2,i);
write(' ',i:4:1);
end;
close(f2);
writeln(' Нажмите Enter для выхода...');
readln;
END.