Все целые числа из диапазона от А до В ( А<=В ), оканчивающиеся на цифру Х - C#

var
  A, B, X, count: integer;
 
function IsDel(d, c: integer): boolean;
var
  z: boolean;
begin
  z := d mod 10 = c;
  IsDel := z;
end;
 
begin
  A := 1;
  B := 100;
  X := 3;
  
  count := 0;
  while (A <= B) do
  begin
    if IsDel(A, X) then
      count += 1;
    A += 1;
  end;
  Writeln(count);
  count := 0;
  
  repeat
    begin
      if IsDel(A, X) then
        count += 1;
      A -= 1;
    end;
  until(A = 0);
  Writeln(count);
  count := 0;
  
  for A := 1 to 100 do
    if IsDel(A, X) then
      count += 1;
  Writeln(count);
  
  Read;
end.