1.perl

# выводим '1 2 3 4 5' четырьмя разными способами

	$i = 0;
	while($i < 5) { # пока $i меньше пяти
	  print ++$i." ";
	}
	print "\n"; # новая строка

	$i = 0;
	until($i == 5) { # пока $i не станет равно пяти
	  print ++$i." ";
	}
	print "\n";

	$i = 0;
	do {
	  print ++$i." ";
	} while ($i < 5); # проверка в конце цикла
	print "\n";

	$i = 0;
	do {
	  print ++$i." ";
	} until ($i == 5);
	print "\n";