информатика 9 класс. тема: проверка условий в паскале
координаты а(х1;у1) в(х2;у2) . Какая из точек ближе к началу координат. НАйти расстояние. Напишите пожалуйста программу и если можете еще схему. ХЕЛП

var x1,y1,x2,y2,d1,d2:real;beginwrite(' Введите x1,y1,x2,y2');read(x1,y1,x2,y2);d1:=sqrt(x1*x1+y1*y1);d2:=sqrt(x2*x2+y2*y2);if d1=d2 then write('точки одинаково удалены от начала координат');if d1<d2 then write('т. В дальше') else write('т. А дальше');wrire(d1,'   ',d2);end.блок-схема будет в файле