100 BEGIN
120 REAL A, R, PI;
125 REAL S, C;
130 PRINT ("DEGREES", "RADIANS", "SIN(A)", "COS(A)");
135 PI := 3.14159265;
140 FOR A := 0 STEP 10 UNTIL 180 DO
150 BEGIN R := A * PI / 180;
160 PRINT (A, R, SIN(R), COS(R));
165 END;
170 PRINT ("DONE") END
