Untitled Pseudocode

DECLARE X : INTEGER
DECLARE Msg : STRING
X <- 10
Msg <- "Cambridge CS"

INPUT UserValue
OUTPUT "Result: ", UserValue

IF Condition THEN
    // Code
ELSE
    // Code
ENDIF

FOR i <- 1 TO 10
    OUTPUT i
NEXT i

WHILE x > 0 DO
    x <- x - 1
ENDWHILE

REPEAT
    x <- x + 1
UNTIL x = 10

DECLARE Arr : ARRAY[1:10] OF STRING
Arr[1] <- "Cambridge"
DECLARE Matrix : ARRAY[1:5, 1:5] OF REAL

PROCEDURE Greet(Name : STRING)
    OUTPUT "Hello ", Name
ENDPROCEDURE
CALL Greet("Alex")

Explicit BYREF and BYVAL parameter modes are 9618 extensions.

LENGTH(Str), UCASE(Str), LCASE(Str)
SUBSTRING(Str, Start, Len)
INT(RealNum), NUM_TO_STR(Num)
DIV, MOD, ROUND(RealNum, Places), RANDOM()

TYPE Student
    DECLARE Name : STRING
    DECLARE Score : INTEGER
ENDTYPE

OPENFILE "Data.txt" FOR READ
READFILE "Data.txt", Line
CLOSEFILE "Data.txt"