написать программу на языке Паскаля Заданы координаты двух точек Определите, расположены ли они на одной окружности с центром в начале координат

написать программу на языке Паскаля Заданы координаты двух точек Определите, расположены ли они на одной окружности с центром в начале координат

  • var x1,x2,y1,y2:real;

    a:string;
    begin
    readln(x1,y1);
    readln(x2,y2);
    if abs(x1/y1)=abs(x2/y2) then a:=вот здесь я незнаюi;

    writeln(a);
    end.

  • var x1,x2,y1,y2:real;

    a:string;
    begin
    readln(x1,y1);
    readln(x2,y2);
    if abs(x1/y1)=abs(x2/y2) then a:=Na odnoi okrujnosti else a:=Ne na odnoi okrujnosti;

    writeln(a);
    end.