Решить : 1. определить требуемый объем видеопамяти для экрана монитора с разрешающей точек, если глубина цвета на одну точку составляет 16 бит. 2. определить объем растрового изображения размером 600 х 800 при глубине цвета 24 бита. 3. для хранения растрового изображения размером 1024 х 512 пикселей отвели 256 кбайт памяти. каково максимально возможное число цветов в палитре изображения?

1)640*480=307200 (всего пикселей).Т.к. на один пиксель 16 бит,то
307200*16=4915200 бит/8=614400 байт/1024=600 Кбайт.
2)600*800=480000 (всего пикселей).Глубина цвета=24,значит
480000*24=11520000/8=1440000 байт/1024=1406,25 Кбайт/1024=1,4 Мбайт
3)V=k*i, где k-количество пикселей ; i-глубина цвета.
i=V/k
256*1024*8=2097152 (Объем в битах)
i=2097152/1024/512=4 бита -глубина цвета
N=2^i; 
N=2^4=16 цветов.
ответ:16

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  if s<>s.MatchValue('[01]+') then Write('не ');
  Writeln('двоичное число')
end.

Пример
010101111011
двоичное число

begin
  var s:=ReadlnString;
  if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
  Writeln('дробное число')
end.

Пример
12.54
дробное число

begin
  var s:=ReadlnString;
  s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.

Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51

Не понравилась реализация, переделал, специально сохранив основу предыдущего решения.

const
  legal = ['0'..'9', 'A'..'F', 'a'..'f'];

var
  s: string;
  i: integer;
  IsHex: Boolean;

begin
  writeln('Введите строку: ');
  readln(s);
  i := 1;
  IsHex := True;
  while (i <= length(s)) and IsHex do
  begin
    if not (s[i] in legal) then IsHex := False;
    i := i + 1
  end;
  if isHex then
    writeln('Введенная строка является шестнадцатиричным числом.')
  else
    writeln('Введенная строка не является шестнадцатиричным числом.');
end.

Тестовое решение:

Введите строку:
58bfa
Введенная строка является шестнадцатиричным числом.
Введите строку:
1054Acg
Введенная строка не является шестнадцатиричным числом.