информатика 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 d1lt;d2 then write('т. В далее') else write('т. А дальше');
wrire(d1,'   ',d2);
end.

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