Question

Написать программу в Паскаль!

Answer 1

program by_Relhem;
var
x1,y1,x2,y2,gip1,gip2:real;
begin
writeln ('Введите координату первой точки.');
readln (x1,y1);
writeln ('Введите координату второй точки.');
readln(x2,y2);
gip1:=sqrt(sqr(x1)+sqr(y1));
gip2:=sqrt(sqr(x2)+sqr(y2));
if gip1<gip2 then writeln ('Первая точка ближе')
else writeln ('Вторая точка ближе');
end.