1. вывести на экран числа 100, 96, 92, ..до последнего положительного включительно. 2. дано число. если оно от 2 до 5 включительно, то увеличить его на 10. если оно от 7 до 40, то уменьшить на 100. если оно не более 0 или более 3000, то увеличить в 3 раза (то есть умножить на 3 иначе занулить это число.

Var i : Byte;
Begin
  For i:=25 downto 1 do Writeln(i*4);
end.

Var A : Integer;
Begin
  Readln(A);
  If (A<0) or (A>3000) then A:=A*3 else
   If (A>=7) and (A<=40) then A:=A-100 else
     If (A>=2) and (A<=5) then A:=A+10 else A:=0;
  Writeln(A);
end.

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
    setlocale(LC_ALL,"Russian");
    const int N=7;
    int A[N];
    cout << "Введите массив, состоящий из " << N << " элементов:\n";
    for (int i=0; i<N; i++)
        cin >> A[i];
    cout << "Массив до - ";
    for (int i=0; i<N; i++)
    {
        cout << A[i] << " ";
        if (A[i]*A[i] < 25) A[i] *= 2;
    }
    cout << "\nМассив после - ";
    for (int i=0; i<N; i++)
        cout << A[i] << " ";
    _getch();
    return 0;
}

Microsft Visual C++ 2010

//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16