var
x1,y1,z1,x2,y2,z2:integer;
sk,nurk,nk:real;
begin
writeln('sisesta u koordinaadid');
readln(x1,y1,z1);
writeln('Sisesta v koordinaadid');
readln(x2,y2,z2);
writeln;
sk:=x1*x2+y1*y2+z1*z2;
writeln('skalaarkorrutis on ',sk:5:2);
nurk:= sk/(sqrt(sqr(x1)+sqr(y1)+sqr(z1)))*(sqrt(sqr(x2)+sqr(y2)+sqr(z2)));
if nurk=0 then
 writeln('Antud vektorid on risti !')
 else
  begin
   nk:=arctan(sqrt(1+sqr(nurk))/nurk);
   writeln(' Vektorite vaheline nurk on ',nk:5:2);
  end;
readln;
end.