Помогите с информатикой

Помогите с информатикой
Даны две точки на плоскости. Составьте программу, определяющую какая из точеку находиться ближе к началу координат..

  • Даша, ты такая красивая.
    Вот решение:

    program koor;
    uses crt;
    var
    x1,x2,y1,y2 : integer;
    res1, res2 : real;
    begin
    ClrScr;
    Write ('Введите через пробел координаты точки А: ');
    Read(x1);
    Read(y1);
    WriteLn;
    Write ('Введите через пробел координаты точки B:');
    Read(x2);
    Read(y2);
    WriteLn;
    res1 := sqrt(sqr(x1)+sqr(y1));
    res2 := sqrt(sqr(x2)+sqr(y2));
    if res1 = res2 then
    begin
    writeln('Точки A и B симметричны отностительно начала координат');
    ReadLn;
    exit;
    end;
    if res1 < res2 then writeln('Точка А находится ближе к началу координат. ') else writeln('Точка B находится ближе к началу координат. '); Readln; end.