program vekt;
uses crt;
var x1,x2,y1,y2,xb,yb,sp:integer; en:real;
BEGIN
clrscr;

write('x1= '); readln(x1);
write('y1= '); readln(y1);
write('x2= '); readln(x2);
write('y2= '); readln(y2);

xb:=x1+x2;
yb:=y1+y2;
writeln('A(x1,y1)+B(x2,y2)= (',xb,',',yb,')');
xb:=x1-x2;
yb:=y1-y2;
writeln('A(x1,y1)-B(x2,y2)= (',xb,',',yb,')');
sp:=x1*y1+x2*y2;
writeln('A*B=',sp);
en:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
writeln('Evk. norm.= ',en);

readkey
END.