Tpusdefinci:
v, w: logikai;
h, i, j, k, l, m, n: integer; (i, j, k: szmll; l, m, n:  a tmb elemszma)
s: feladatfgg tpus
A[], B[], C[], D[], E[], F[], G[]: tmb; (F[] s G[] rendezett, az elemek tpusa feladatfgg)
t: feladatfgg tulajdonsg vagy fggvny

Eldnts algoritmusa
Keress algoritmusa
Kivlaszts algoritmusa
Kivlogats algoritmusa
Megszmlls algoritmusa
Sorozatszmts algritmusa
Sztvlogats algoritmusa
Unikpzs algoritmusa

---------------1--------------
i:=1;
s:=kezdrtk;
Ismteld amg i<=n
	s:=t(s, A[i)];
	i:=i+1;
Ismtls vge;
Ki(s);

---------------2----------------
i:=1;
Ismteld amg (i<=n) s nem(t(A[i]))
	i:=i+1;
Ismtls vge;
v:=(i<=n);
Ki(v);

----------------3------------------
h:=0
i:=1;
Ismteld amg (i<=n) s nem(t(A[i]))
	i:=i+1;
Ismtls vge;
v:=(i<=n);
Ha v akkor h:=i;
Ki(h);


-----------------4--------------------

h:=1;
i:=2;
Ismteld amg i:=n
	Ha A[i]<A[h] akkor h:=i;
	i:=i+1;
Ismtls vge;
Ki( h, A[h] );


------------------5--------------------
Ismteld i:=2-tl n-ig
	j:=n
	Ismteld amg j>=i
		Ha A[j-1]>A[j] akkor
		kezd
			s:=A[j-1];
			A[j-1]:=A[j];
			A[j]:=s;
		vge;
		j:=j-1;
	Ismtls vge;
Ismtls vge;
Ki(A[]);


---------------------6-----------------------
i:=1;
j:=n;
Ismteld amg i<j
	Ismteld amg t(A[i])
		i:=i+1;
	Ismtls vge;
	Ismteld amg nem(t(A[j]))
		j:=j-1;
	Ismtls vge;
	s:=A[i];
	A[i]:=A[j];
	A[j]:=s;
Ismtls vge;


--------------------7--------------------------
i:=1;
j:=1;
k:=0;
Ismteld amg (i<=n) s (j<=m)
	k:=k+1;
	Ha F[i]<G[j] akkor
	kezd
		A[k]:=F[i];
		i:=i+1;
	vge;
	klnben Ha F[i]>G[j] akkor
	kezd
		A[k]:=G[i]
		j:=j+1;
	vge;
	klnben
	kezd
		A[k]:=F[i];
		i:=i+1;
		j:=j+1;
	vge;
Ismtls vge;
Ismteld h:=i-tl n-ig
	k:=k+1;
	A[k]:=F[i];
Ismtls vge;
Ismteld h:=j-tl m-ig
	k:=k+1;
	A[k]:=G[i];
Ismtls vge;


-------------------------8-----------------------
k:=0;
Ismteld i:=1-tl N-ig
	j:=1;
	Ismteld amg (j<=m) s (A[i]<>B[j])
		j:=j+1;
	Ismtls vge;
	Ha A[i]=B[j] akkor
	kezd
		k:=k+1;
		C[k]:=A[i];
	vge;
Ismtls vge;


--------------------------9----------------------------
Ismteld i:=1-tl N-ig
	C[i]:=A[i];
Ismtls vge;
	k:=n;
Ismteld j:=1 tl m-ig
	i:=1;
	Ismteld amg (i<=n) s (A[i]<>B[j])
		i:=i+1;
	Ismtls vge;
	Ha i>n akkor
	kezd
		k:=k+1;
		C[k]:=B[j];
	vge;
Ismtls vge;
	