Έλεγχος βρόχου στο τέλος

Παράδειγμα:
repeat
	readln(number);
	writeln(number)
until number < 0;