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.