Задания делаются в языке Paskal ABC/
Заранее за Задача 1. Дан файл, содержащий ненулевые целые числа. Создать новый файл,
содержащий только положительные числа исходного файла (в том же порядке).
Задача 2. Дан файл вещественных чисел. Поменять в нем местами минимальный и
максимальный элементы.

Запомни: в 1 байте 8 бит, в 1 Кбайте 1024 байт, 1 Мегабайте = 1024 кбайт, 1 Гигабайт = 1024 мегабайт.
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 *  8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит

Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт

(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.