program zeg_hallo; uses wincrt;
var
	aantal: integer;
begin
	write('Geef een aantal: ');
	read(aantal);
	while aantal>0 do
	begin
		writeln('hallo');
		aantal:=aantal-1
	end
end.