использование процедур и функций Опции

[VATO]

Три точки заданы координатами в первом квадранте: (X1,X2), (Y1,Y2), (Z1,Z2). Выдать на печать координаты этих точек по возрастанию угла между осью абсцисс и лучом, соединяющим начало координат с соответствующей точкой.

Может кто нить встречался с таким типом задачь как у меня? Надеюсь на вашу помощь.

М

не надо использовать тэги кода для обычного текста. Можешь использовать quote

[Ozzя]

препод сказал

Он должен был тебя выгнать с зачета , начиная со строки

 real ln (str);

Зачем вообще такие сложности?

...
readln(s);
for i:=1 to length(s) do
  if s[i]='!' then
    begin
       n:=i;
       break;
    end;
writeln(n);