Directory of image this file is from
This file as a plain text file
'BEGIN' 'COMENT' COMPUTE POWERS OF A;
'INTEGER'V; 'RELAL' A,X;
WRITE(1,"FOR WHAT NUMBER WOULD YOU LIKE THE FIRST TEN POWERS?");
X:=1;
READ (1,A); SKIP;
'FOR' V:=1 'STEP' 1 'UNTIL'10 'DO'
'BEGIN'
X:=A*X;
WRITE (1,A," TO THE", V ," EQUALS",X);
SKIP;
'END'
SKIP;SKIP;
'END'
$