Помогите решить Опции

[KucerMD]

1.. Дана скорость движения автомобиля. За какое время он проедет 300 километров.
2.Составить программу определяющую лежит ли точка с координатами x y на окружности радиуса R, центр окружности лежит в начале координат.
3.Дано n количество чисел, подсчитать среди них количество положительных и отрицательных.
4С помощью цикла Repeat написать программу суммы квадратов не чётных чисел от 1 до 300.

[Ozzя]

Че так правильно?

Ты сам-то задание прочитал? Тебе в 3-м нужно - "количество положительных и отрицательных". А ты четность/нечетность проверяешь.
Перепиши для положительных и отрицательных

Добавлено через 4 мин.

If a/2 div 2 then {Что за условие? Проверяй на отрицательность/положительность!}
  writeln ('polojit') 
else
  writeln ('otricat');
    S:=s+i;