Program PROGA;
  uses crt;
type
  form=array[1..2] of integer;
var
  a,ren1,ren2:array[1..10] of form;
  n,i,x,k,yk:integer;
  s,v:REAL;
  alf:array[1..100] of string;
  Label metka;
  Label metka2;
begin
 clrscr;
  {$I-}
 Metka2:
 TextColor(10);
 Write(' Угол альфа= ');
 Readln(s);
      While (IOResult<>0) do
	     	   begin
		   	    TextColor(9);
			      Writeln(' Ошибка ввода - повторите');
		       	k:=k+1;
			      TextColor(14);
			      if k=3 Then
			      Writeln(' Хватит баловаться!');
			      if k>=4 Then
			      Writeln(' Только время зря тратишь...');
		        TextColor(10);
            Write(' Угол альфа= ');
			      Readln(S);
		       end;
 TextColor(14);
 Write(' Угол бета= ');
  Readln(V);
    While (IOResult<>0) do
	     	   begin
		   	    TextColor(9);
			      Writeln('   Ошибка ввода - повторите');
		       	k:=k+1;
			      TextColor(14);
			      if k=3 Then
			      Writeln('   Хватит баловаться!');
			      if k>=4 Then
			      Writeln('   Цифру введи идиот');
		        TextColor(13);
            Write(' Угол бета= ');
			      Readln(V);
           End;
 while V<S do
    Begin
     TextColor(4);
     Writeln(' !!!Ошибка - угол альфа больше угла бета!!!');
     Goto metka2;
     end;
 Writeln;

 TextColor(15);
 While true do
 begin
  for i:=1 to 100 do
   begin
     N:=N+1;
     alf[i]:=chr(i+64);
     writeln (' Введите точку ',alf[i]);
     Write('  x='); Readln (a[i][1]);
     While (IOResult<>0) do
	     	   begin
		   	    TextColor(9);
			      Writeln('   Ошибка ввода - повторите');
		       	k:=k+1;
			      TextColor(14);
			      if k=3 Then
			      Writeln('   Хватит баловаться!');
			      if k>=4 Then
			      Writeln('   Идиот число надо вводить');
		        TextColor(15);
            Write('   x= ');
			      Readln(a[i][1]);
          End;

     Write('  y='); Readln (a[i][2]);
        While (IOResult<>0) do
	     	   begin
		   	    TextColor(9);
			      Writeln('   Ошибка ввода - повторите');
		       	k:=k+1;
			      TextColor(14);
			      if k=3 Then
			      Writeln('   Хватит баловаться!');
			      if k>=4 Then
			      Writeln('   Идиот, число надо вводить');
		        TextColor(15);
            Write('   y= ');
			      Readln(a[i][2]);
            end;
            If (a[i][1]=0) and (a[i][2]=0) then   Goto metka;
      {$I+}
    end;
    end;
     Metka:
 Writeln('Результат');
 Textcolor(10);
  for i:=1 to N do
   {УСЛОВИЕ}
   Writeln (alf[i],'(',a[i][1],';',a[i][2],')');
 Readln;
end.