program negatief_getal; uses wincrt;
var
	getal: real;
begin
	repeat
		write('Geef een getal: ');
		read(getal)
	until getal<0;
	write('Het programma is gestopt omdat');
	write(' een negatief getal is ingevoerd.')
end.