begin
write(введите X1 и x2)
readin(x1, x2)
write(введите y1 и y2)
readin(y1 и y2)
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
begin
write(введите X1 и x2)
readin(x1, x2)
write(введите y1 и y2)
readin(y1 и y2)
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.