Много разных задач., Помогите решить.... Опции

[-Slim-]

Помогите решить несколько простеньких(для вас, а не для меня) задач....
Вот задания:

1)Границы промежутка заданы случайными числами. Проверить существование данного промежутка. На данном промежутке найти все числа, кратные числу с и их количество.
Последовательность решения:
1. Описать переменные a, b, c как integer.
2. Задать с клавиатуры коэффициент кратности c.
3. Задать промежуток:
randomize; {подключение генератора случайных чисел}
a:=random(50); {задание случайного числа в пределах от 1 до 50}
в:=random(100); {задание случайного числа в пределах от 1 до 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. Осуществить задержку результата на экране.
---------------------------------------------------------------------------------------------
2). Даны натуральные числа А и В. Определить их наименьшее общее кратное.
Последовательность решения:
• формируем тело программы и описываем переменные:
a,b,c,d,NOD-как integer; NOK – как real;
• вводим натуральные числа А и В;
• запоминаем их в ячейках C и D;
• находим НОД чисел А и В;
• запоминаем его в ячейке NOD;
• вычисляем НОК по формуле: NOK = C*D / NOD;
• выводим результат.
• Подбираем контрольный пример для проверки программы.
---------------------------------------------------------------------------------------------
3)Составить программу вычисления корней квадратного уравнения вида a x 2 + b x + c = 0

Последовательность действий:
1. Описать переменные a, b, c, d, x1,x2 как REAL.
2. Задать с клавиатуры коэффициенты a, b, c.
3. Вычислить значение дискриминанта d = b 2 – 4 a c
4. Вывести значение дискриминанта на экран
5. Проверить значение дискриминанта:
• Если дискриминант меньше нуля, то нет решения
• Если дискриминант больше или равен нулю, то вычислить
значения x1 и x2

Заранее спасибо.

[-Slim-]

Убрал.....всё равно не работает....всё таже ошибка 200.
А код то я правильно написал???????