Версия для печати темы

program pr20;
uses crt;
const n=10;
var
  a:array[1..n] of real;
  f,g:text;
  i:integer;
  k:real;
begin
   clrscr;
for i:=1 to n do
     a[i]:=sin(i*i);
assign(f,'work');
rewrite(f);
for i:=1 to n do
    writeln(f,a[i]);
close(f);

assign(g,'work1');
rewrite(g);
for i:=1 to n do
    if (a[i]<0) then
    if  (a[i] mod 3=0) then {ПИШЕТ, НЕСООТВЕТСТИВИЕ ТИПОВ, ВРОДЕ БЫ}
     writeln(g,a[i]);
writeln('elementy  work');
assign(f,'work');
reset(f);
while not(eof(f)) do
    begin
      readln(f,k);
      writeln(k);
    end;
  close(f);
readkey;
clrscr;
writeln(' elementy  work1');
assign(g,'work1');
reset(g);
while not(eof(g)) do
    begin
      readln(g,k);
      writeln(k);
    end;
  close(g);
readkey;

end.