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

Var x1,y1,x2,y2,d1,d2:real;
begin
write(' Введите 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.

блок-схема будет в файле