тип данных: Файл

var f1, f2  : FILE of Integer;
    c, temp : integer;
 
begin
  {забиваем файл случайными целыми числами}
  Randomize;
  Assign(f1, 'IN.DAT'); {создаем файл с таким именем}
  ReWrite(f1);
  for c:=1 to 20 do
  begin
    temp := random(100)-50;
    Write(f1, temp);
  end;
  Close(f1);
  
 
 
  Assign(f1, 'IN.DAT'); {открываем для чтения файл}
  ReSet(f1);
  
  Assign(f2, 'OUT.DAT'); {создаем файл для вывода результатов}
  ReWrite(f2);
  
  c := 0;
    
  while not eof(f1) do
    Read(f1, temp);         {читаем очередное число из исходного файла}
    if temp mod 3=0 then    {если остаток от деления прочитаног числа на 3 равен 0}
    begin
      Inc(c);           {увеличиваем счетчик найденных чисел}
      Write(f2, temp);      {пишем в файл}
    end;
    
  {закрываем ранее открытые файлы} 
  Close(f2);
  Close(f1);
 
  {вывод результатов}
  WriteLn('В файл было записано ',c,' чисел из исходного файла.');
  ReadLn;
end.

var f1, f2  : text;
begin
  Assign(f1, 'IN.txt'); {открываем для чтения файл}
  ReSet(f1);
  
  Assign(f2, 'OUT.txt'); {создаем файл для вывода результатов}
  ReWrite(f2);

uses crt;
var f1,f2:text;
    a:integer;
begin
clrscr;
assign(f1,'IN.txt'); {открываем для чтения файл}
reset(f1);
assign(f2, 'OUT.txt'); {создаем файл для вывода результатов}
rewrite(f2);
while not eof(f1) do
 begin
  read(f1,a);
  if a mod 3=0 then write(f2,' ',a);
 end;
close(f1);
close(f2);
write('Числа, кратные 3 из файла IN.txt переписан в файл OUT.txt!');
readln
end.