natural a, b, c, x;

  inceput
	citesc a, b, c;

	executa
	  inceput
		daca (a ≠ b sau a ≠ c) atunci
		  inceput
			x = a;
			daca (x > b) atunci
				x = b;
			daca (x > c) atunci
				x = c;
			daca (x ≠ a) atunci
				a = a - x;
			daca (x ≠ b) atunci
				b = b - x;
			daca (x ≠ c) atunci
				c = c - x;
		  sfarsit
	  sfarsit
	cat_timp(a ≠ b sau a ≠ c);
	scrie a;
  sfarsit