Требуется помощь с 2-мя программами

[MickThompson]

Начал изучать Perl в институте. Сразу же понеслись лабы. 5 заданий сделал, а 2 не могу.

1. Напишите программу, выводящую все порстые числа, не превышающие N.

Как бы сделал только часть программы. Выводит она только числа 1 2 3 5 7. Дальше идти не хочет.

#!/usr/bin/perl
print "Vvedite chislo N=";
$v31=<STDIN>;
@v32=(1..$v31);
for ($i=0;$i<=$v31;$i++)
{
if ($v32[$i]==1)
{
print $v32[$i], " ";
}
else
{
$pr=$v32[$i]/2;
$pr2=$pr;
if ($pr==1)
{
print $v32[$i], " ";
}
else
{
$pr=$v32[$i]/3;
$pr3=$pr;
if ($pr==1)
{
print $v32[$i], " ";
}
else
{
$pr=$v32[$i]/5;
$pr5=$pr;
if ($pr==1)
{
print $v32[$i], " ";
}
else
{
$pr=$v32[$i]/7;
$pr7=$pr;
if ($pr==1)
{
print $v32[$i], " ";
}
else
{
}
}
}
}
}
}
<STDIN>;

Что нужно добавить, чтобы он выводил все простые числа. Будь список от 1 до 70, или от 1 до 300.
Помогите доделать до рабочего или помогите найти алгоритм для нахождения.

2. Напишите программу, находящую наибольший общий делитель двух чисел.

Тут я даже не знаю что делать.



Помогите пожалуйста

 

[MickThompson]

Дошёл до всего сам Тема не актуальна