помогите с решением лабы на паскале

[werus]

1 задан массив A[m,n] Из массива А сформируйте массив D[k]развернув его по столбцам.

2 элементы массива X[n] циклически сдвинуть на одну позицию влево.

3 определить все простые числа не превосходящие заданного N (распознавание простых чисел оформить в виде подпрограммы)

вот я понимаю они легкие, но я много пропустил))

[Stilet]

элементы массива X[n] циклически сдвинуть на одну позицию влево.

Примерно так:

var x:array[1..10] of byte;i,k:byte;
begin
 k:=x[10];
 for i:=9 downto 1 do x[i+1]:=x[i];
 x[1]:=k;
end.

[DM_bite]

3. Простые числа - числа, которые делятся только на 1 и себя(кстати 0 - не просто число).

program Simple;
var i,n: integer;
begin
ReadLn(n);
for i:= 0 to n do
begin
if i=2 then WriteLn(i);
if i=3 then WriteLn(i);
if i=5 then WriteLn(i);
if i=7 then WriteLn(i);
if i=11 then WriteLn(i);
if not(i mod 2 = 0) and not (i mod 3 = 0) and not (i mod 5 = 0)
   and not (i mod 7 = 0)
    and not (i mod 11 = 0) then
    WriteLn(i);
    end;
    ReadLn;
    end.

[Serge_Bliznykov]

DM_bite, не зачёт... ;(
где вы прочитали, что нужно проверять только на делимость на простые числа до 11-ти?!

werus, посмотрите, например, сюда:
http://www.programmersforum.ru/showthread.php?t=10978
(ну, или сюда -
http://www.programmersforum.ru/showthread.php?t=30673 )

[werus]

благодарю)