Із якої дії слід розпочинати створення простого запиту ?​

1.var a,b,c: integer; d,x1,x2: real; begin; readln(a); readln(b); readln(c); d: =sqr(b)-4*a*c; if d< 0 then     writeln('нет корней')     else     if d=0 then       begin;       x1: =-b/(2*a);       writeln(x1);       end       else         begin;         x1: =(-b+sqrt(d))/(2*a);         x2: =(-b-sqrt(d))/(2*a);         writeln(x1);         writeln(x2);         end; end.2)var x1,y1,x2,y2: integer; r1,r2,rr: real; begin; readln(x1); readln(y1); readln(x2); readln(y2); r1: =sqrt(sqr(x1)+sqr(y1)); r2: =sqrt(sqr(x2)+sqr(y2)); if r1> r2 then   begin;   rr: =r1-r2;   write('расстояние от точки а до начала координат больше, чем расстояние от точки в до начала координат на ',rr,' единиц');   end   else     if r1< r2 then     begin;       rr: =r2-r1;       write('расстояние от точки b до начала координат больше, чем расстояние от точки a до начала координат на ',rr,' единиц');     end       else       write('точки a и b равноудалены от начала координат'); end.