Y=cos⁡(3x); z=sin⁡(3x) x∈[0..2π], Δx=π∕8
построить график в excel

Var 
a: array[1..8] of integer; 
i, b, min: integer;
begin 
b := 1; 
for i := 1 to 8 do  begin   
write('Введите ', i, '-ый элемент массива ');   
Readln(a[i]); //Вводим число
if i = 1 then min := a[i] else // Если это первое число то min:= это число   
if min > a[i] then begin //Если min оказывается больше введённого числа
min := a[i]; //то min:= это чило
b := i; //и переменной b := номер этого числа в массиве
end; 
end; 
Write('Первоначальный массив | '); 
for i := 1 to 8 do write(a[i], ' ');  // Выводим этот массив
Writeln('| Индекс минимального элемента ', b, '. Число ', a[b]); // Переменную b и элемент стоящий на месте b  
Write('Преобразованный массив| '); 
for i := 1 to 8 do   begin   
a[i] := a[i] - min;    //Преобразуем массив вычитая из элемента i - min
write(a[i], ' ');  // И сразу выводим преобразованное число
end; 
write('|');
end. //конец

1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5)
2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел.
3. Вывести введенную строку в обратном порядке.
Решения на Pascal:
1.

var n, i: integer;
begin
  read(n);
  for i := 1 to n do
    if odd(i) then write(i div 2 + 1, ' ')
    else write(n - i div 2 + 1, ' ')
end.

2.

var a, b, a1, b1, t: integer;
begin
  read(a, b);
  a1 := a;
  b1 := b;
  repeat
    t := a mod b;
    a := b;
    b := t;
  until b = 0;
  writeln('НОД=', a);
  writeln('НОК=', a1 * b1 div a);
end.

3.

var s, s1: string;
    i: integer;
begin
  read(s);
  s1 := '';
  for i := length(s) downto 1 do
    s1 += s[i];
  write(s1)
end.