Решить все это в паскале. на окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн, yн) и конечной (xк, yк) точек. определить номера четвертей окружности, в которых находятся начальная и конечная точки.

Program   techies2001; uses crt; const n=10; var   s: string;   i,j: integer;   x0,y0,xn,yn,xk,yk: real; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do       begin         write(s[i]);         for j: =1 to 500000 do s[i]: =s[i];         end;   writeln();   writeln('***           ok             ***');   writeln();   writeln('на окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. определить номера четвертей окружности, в которых находятся начальная и конечная точки.');   writeln('введите координаты точек: ');   write('x0='); readln(x0);   write('y0='); readln(y0);   write('xn='); readln(xn);   write('yn='); readln(yn);   write('xk='); readln(xk);   write('yk='); readln(yk);   if ((xn=x0) and (yn=y0)) or ((xk=x0) and (yk=y0)) then       writeln('начало или конец дуги с центром')     else       begin           if ((xn> x0) and (yn> y0)) then writeln('начало дуги находится в i четверти');           if ((xn< x0) and (yn> y0)) then writeln('начало дуги находится во ii четверти');           if ((xn< x0) and (yn< y0)) then writeln('начало дуги находится в iii четверти');           if ((xn> x0) and (yn< y0)) then writeln('начало дуги находится в iv четверти');           if ((xn=x0) and (yn> y0)) then writeln('начало дуги находится на оси х на границе i и ii четверти');           if ((xn< x0) and (yn=y0)) then writeln('начало дуги находится на оси y на границе ii и iii четверти');           if ((xn=x0) and (yn< y0)) then writeln('начало дуги находится на оси х на границе iii и iv четверти');           if ((xn> x0) and (yn=y0)) then writeln('начало дуги находится на оси y на границе i и iv четверти');           if ((xk> x0) and (yk> y0)) then writeln('конец дуги находится в i четверти');           if ((xk< x0) and (yk> y0)) then writeln('конец дуги находится вî ii четверти');           if ((xk< x0) and (yk< y0)) then writeln('конец дуги находится в iii четверти');           if ((xk> x0) and (yk< y0)) then writeln('конец дуги находится в iv четверти');           if ((xk=x0) and (yk> y0)) then writeln('конец дуги находится на оси х на границе i и ii четверти');           if ((xk< x0) and (yk=y0)) then writeln('конец дуги находится на оси y на границе ii и iii четверти');           if ((xk=x0) and (yk< y0)) then writeln('конец дуги находится на оси х на границе iii и iv четверти');           if ((xk> x0) and (yk=y0)) then writeln('конец дуги находится на оси y на границе i и iv четверти');   end; end.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

бухгалтерия, документооборот.