:=COS (EKL);SE:=SIN (EKL);
PY:=H1*CE-H2*SE;
PZ:=H2*CE+H1*SE;
QY:=H3*CE-H4*SE;
QZ:=H4*CE+H3*SE;
WRITELN("PX=",PX:10:6);
WRITELN("PY=",PY:10:6);
WRITELN("PZ=",PZ:10:6);
WRITELN("QX=",QX:10:6);
WRITELN("QY=",QY:10:6);
WRITELN("QZ=",QZ:10:6);

W:=Q*2*V;V:=Q*(1-SQR (V));
S1:=PX*V+W*QX+X;
S2:=PY*V+W*QY+Y;
S3:=PZ*V+W*QZ+Z;

(*-----Berechnung von RA und Dec-----*)
DELTA:=SQRT (SQR (S1)+SQR (S2)+SQR (S3));
DEC:=S3/DELTA;
DEC:=ARCSIN (DEC);
RA:=2*ARCTAN ((DELTA*COS (DEC)-S1)/S2);
RA:=RA*12/PI;
WHILE (RA>24) DO RA:=RA-24;
WHILE (RA<0) DO RA:=RA+24;
RA:=TRUNC (RA)+TRUNC (RA-TRUNC (RA))*0.6;
WRITELN("DEC=",DEC:10:4," *");
WRITELN("RA=",RA:11:4," H");
END.
PROGRAM HANOI (IN,OUT);

VAR
  AUS,ZWISCHEN,ENDE,N:INTEGER;

PROCEDUR SCHLEPPE (N,AUS,ZWISCHEN,ENDE:INTEGER);
BEGIN
  IF N>1 THEN SCHLEPPE(N-1,AUS,ENDE,ZWISCHEN);
   WRITELN("SCHLEPPE DIE SCHEIBE VON",AUS:3," NACH",ENDE:3);
  IF N>1 THEN SCHLEPPE(N-1,ZWISCHEN,AUS,ENDE);
END;

(*==========Hauptprogramm==========*)
BEGIN
  WRITE("WIEVIELE SCHEIBEN SIND ZU TRANSPORTIEREN");READLN;READ(N);
  SCHLEPPE(N,1,2,3)
END.
PROGRAM SORTIEREN (IN,OUT);
CONST
  N=100;
VAR
  FELD:ARRAY [1..N] OF REAL;
  MIN,C:REAL;
  A,F,I,T:INTEGER;
BEGIN
  WRITE("ANZAHL DER ZAHLEN");READLN;READ(F);
  FOR A:=1 TO F DO BEGIN
    WRITE(A:3,".ZAHL");READLN;READ(FELD[A])
  END;
  FOR A:=1 TO F-1 DO BEGIN
    MIN:=FELD[A];T:=A;
    FOR I:=A+1 TO F DO
    IF FELD[I]<MIN THEN BEGIN MIN:=FELD[I];T:=I END;
    C:=FELD[T];FELD[T]:=FELD[A];FELD[A]:=C
  END;
  FOR A:=1 TO F DO WRITELN(FELD[A]:10:3)
END.
NGABE BEENDET IST");
READLN;J:=0;
REPEAT
 J:=J+1;I:=0;LISTE[J,1]:="*";
 REPEAT 
  I:=I+1;
  READ(LISTE[J,I]);
 UNTIL EOLN OR (I=30);
 IF I<30
 THEN BEGIN I:=I+1;
            LISTE[J,I]:="*" 
      END;
 IF LISTE[J,1]="#"
 THEN BEGIN
      FOR K:=(J+1) TO MAX DO LISTE[K,1]:="*";
      J:=MAX
      END
UNTIL J=MAX
END;


BEGIN
REPEAT
WRITELN;
WRITE("RUFEN SIE DAS GEWUENSCHTE UNTERPROGRAMM AUF");
WRITELN;
WRITELN("EINGABE DES STAMMBAUMES: I");
WRITELN("NAME EINES VERWANTEN SUCHEN: V");
WRITELN("ENDE       : E");
READLN(Q);
CASE Q OF
"I":EINGABE;
"D":BEGIN WRITELN("GEBEN SIE DIE VERWANDTSCHAFTSBEZIEHUNG EIN.");
        WRITELN("KENNZEICHNUNG DES ENDES DURCH *");
         VERSUCH
        END;
END
UNTIL Q="E"
END.