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

Правила форума
Что у вас не получается?

Вот эти задачи неполучаются.6 сделал а эти 4 немогу.

Ваши идеи по решению, ваши попытки решения.

Вот например 3.
If a/2 div 2 then writeln ('Polojit') else
writeln ('otricat')
S:=s+i

Вы про третью или про четвёртую? В третьей проверяете, если a[i]>0, то s=s+1, не забудьте только перед циклом обнулить s. Нули можно будет посчитать отдельно,если хочется(в том же цикле).
В четвёртой - число n будет чётным, если n div 2 = 0, если же n div 2 = 1, то число нечётное. Собственно, Вам и не нужно проходить по всем числам и выбирать из них только нечётные. Можно просто в цикле считать сумму квадратов чисел вида (2*i-1), i пробегает все необходимые значения.

Я чето пытался сделать но неполучилось.

А 2-ая правильно?
program uud;
uses crt;
var x,y,r:byte;
begin
read(x,y);
if sqr(x)+sqr(y)=sqr(r )
then writeln('lejit') else writeln ('nelejit');
end.

Нет. Что такое с, а?