Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.
Поставь программу Тим вивер, скажи айди и пароль. Подключусь, гляну.

Traffic (трафик) – в переводе с английского означает уличное движение. В среде интернет маркетинга трафик – это поток посетителей на сайт, или простыми словами посещаемость. Так же трафик– это объем данных в килобайтах, который проходит через сервер за определенный отрезок времени.
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.