Проверить существование промежутка, Подскажите что не так.... Опции

[SlimShady]

Вот условие:

Границы промежутка заданы случайными числами.
Проверить существование данного промежутка.
На данном промежутке найти все числа, кратные числу с  и их количество.
Последовательность решения:
1. Описать переменные  a, b, c как integer.
2. Задать с клавиатуры  коэффициент кратности c.
3. Задать промежуток:
randomize;                     
          a:=random(50);         
          в:=random(100);         
4. Проанализировать существование промежутка: если a>b, то промежуток не существует.
5. Организовать цикл от a до b и найти все кратные числа:
          for  i:= а  to в  do 
          if  int(i/2)=i/2 then begin  write( i, ’  ‘); k:=k+1; end;
6. Проанализировать значение счетчика к и выдать соответствующее сообщение.
7. Осуществить задержку результата на экране.

А вот то что написал я.....пишет какой-то бред...

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.

Сообщение отредактировано: volvo - 15.05.2005 14:49

[volvo]

Ну, ты меня извини, ты хоть условие-то прочти !!!

На данном промежутке найти все числа, кратные числу с  и их количество.

Какие повторения? Я тебе дал программу, которая дает совершенно другой вывод...
ПОЧЕМУ надо ИЗМЕНИТЬ, а потом сказать, что неправильно работает? Ничего не меняй, прогони мою программу. Если работает правильно - будешь оформлять... Сначала добейся правильных результатов !!!