; oversættelse af Pascal-koden:
; readln(a); readln(b);
; if a>=b then c:=a*a+b else c:=b*b+a;
; writeln(c);

; variable
	a=0
	b=0
	resultat=0
; program
	IND a
	IND b
	HENT a
	SUB b
	HNEG negativ
positiv:
	HENT a
	MULT a
	ADD b
	HOP udskriv
negativ:
	HENT b
	MULT b
	ADD a
udskriv:
	GEM resultat
	UD resultat
	STOP