program promezytok;
uses crt;
var a,b,c: integer;
    i,k: integer;
begin
ClrScr;
write('Введите любое число');
read(с);
randomize;
a:=random(50);
b:=random(100);
if a>b then write('Промежуток не существует');
for i:=a to b do
 if int(i/2)-i/2 then
                     begin
                   write('i будет равно',i,'');
                   k:=k+1;
                   end;
write('результат ',k,'');
read;
repeat until keypressed;
end.

program promezytok;
uses crt;
var
  a,b,c, i, k: integer;
begin
  ClrScr;
  write('c = '); readln( с );
  randomize;
  a:=random(50);
  b:=random(100);
  if a>b then write('not exists')
  else writeln( 'a = ', a, ' b = ', B );
  for i:=a to b do
    if i mod c = 0 then begin { <--- вот так }
      writeln('i = ',i); k:=k+1;
    end;
  write('k = ', k);
  repeat until keypressed;
end.