1. Напишите программу для вывода на экран чисел находящихся по обе стороны (до и после) введённого пользователем числа. 2. N-ное количество учеников собрали яблок и поделили поровну между собой. Остальные яблоки оставили в корзинке.

а) какое количество яблок досталось каждому ученику?
б) сколько яблок в корзине?
в) напишите программу для варианта когда n и k водятся пользователем.

3. Напишите программу для определения двух последних цифр введённого пользователя числа большего чем двузначное.

4. Автобус за день проходит n км за сколько дней автобус проедет расстояние m км, n и m вводиться пользователем. Напишите программу для решения задачи

5. Путь пройденный муравьём обозначен в миллиметрах обозначьте его в метрах в сантиметрах и миллиметрах (например, 45 786 = 45 м 78 см 6 мм)

6. Грань куба равна а. напишите программу вычисляющую объём куба.

7. Даны числа a, b, c и d напишите программу для вычисления среднего арифметического значения.

8. Школьная администрация решила организовать кабинет математике для третьих классов. поскольку занятия проходят одновременно необходимо закупить парты для каждого кабинета отдельно за одной партой не смогут сидеть больше 2 учеников сколько парт надо купить если известно количество учащихся в каждом классе. Пользователь вводит три значения количество учеников в каждом классе.

//PascalABC.Net 3.0, сборка 1064
const
  nn=50;
var
  a:array[1..nn] of integer;
  i,n,imin:integer;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i;
  end;
  Writeln;
  for i:=imin to n-1 do a[i]:=a[i+1];
  Writeln('Массив-результат');
  for i:=1 to n-1 do Write(a[i],' '); Writeln
end.

Тестовое решение:
Введите количество элементов в массиве: 15
Исходный массив
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2
Массив-результат
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2

А это версия для тех, кто думает, что Паскалю пора давно "на свалку":
//PascalABC.Net 3.0, сборка 1064
begin
  var n:=ReadInteger('Введите количество элементов в массиве');
  var a:=SeqRandom(n,-25,25).ToArray();
  Writeln('Исходный массив:',#13#10,a);
  Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));
end.

Тестовое решение:
Введите количество элементов в массиве 15
Исходный массив:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15]
Результат:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15]

Можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на Java, приведенной в предыдущем ответе.

//Java
import java.util.ArrayList;

class Main {
public static void main(String[] args) {
ArrayList<Integer> a = new ArrayList();

/**
 * Заполнение
 */
for (int i = 0; i < 50; i++)
a.add(i, new java.util.Random().nextInt(100));

/**
 * Пузырь
 */
for (int i = 0; i < 50; i++)
for (int j = 0; j < 50-i-1; j++)
if (a.get(j) > a.get(j+1)){
int b = a.get(j);
a.set(j, j+1);
a.set(j+1, b);
}

for (int i = 0; i < 50; i++)
System.out.print(a.get(i) + " ");
System.out.println("\n---");

/**
 * Удаляем
 */
a.remove(0);

for (int i = 0; i < 50-1; i++)
System.out.print(a.get(i) + " ");
}
}

Проверка:
1 2 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 98
---
2 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 98

Так как использовался, само расширяющийся массив, то при удалении, ничего сдвигать не нужно