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

[KucerMD]

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

[KucerMD]

Нет.

if sqr(x)+sqr(y)=sqr® then
  WriteLn('Лежит')
else
  WriteLn('Не лежит');

c учетом замечания от TarasBer.
Добавлено через 1 мин.
Хотя, уровень явно школьный. Начала программирования. Так что, сойдет, я думаю.

Спасибо огромное Ozzя

Добавлено через 5 мин.
Помогите пожалуиста решить 1,3, и4.