Лазарус 2 задачки нужно выполнить с тремя :

1) С постусловием

2) С предусловием

3) С параметром

program DecToBinCount;

uses

 SysUtils, StrUtils;

function DecToBin (m: Integer): string;

var

 r: Integer;

 s: string;

begin

 while (m > 0) do Begin

  r := m mod 2;

  m := m div 2;

  s := IntToStr (r) + s;

 end;

 Result := s;

end;

var

 m, n, x, i, c: Integer;

 s: string;

begin

 Write ('Введите M, N, X: ');

 ReadLn (m, n, x);

 WriteLn;

 c := 0;

 for i := m to n do begin

   s := DecToBin (i);

   if RightStr (s, x) = StringOfChar ('0', x) then begin

     WriteLn (s, ' ');  // для проверки. после тестирования закомментарить

     Inc (c);

   end;

 end;

 WriteLn (c);

 ReadLn;

end.

6.2. Типы и структуры данных
Под типом данных (data type) понимается множество величин, объединенных определенными признаками и совокупностью допустимых преобразований.
Так, если в качестве объединяющего признака используется вид данных, то данные можно разделить на следующие типы:
• символьные;
• текстовые;
• звуковые;
• графические.
Например, в MS Excel выделяются три основных типа данных: число, текст и формула.
Если в качестве объединяющего признака использовать представления данных в вычислительных системах (алгоритмических языках программирования), то данные можно разделить на следующие типы:
• целочисленный – используется для представления целых чисел;
• вещественный – используется для представления чисел с плавающей запятой (точкой);
• строковый – используется для представления строки символов;
• логический – используется для представления логических значений «ложь» или «истина»;
• указательный – используется для ссылки на другой объект и т. д.