Имеешь в виду коды ошибок? Если да то:
1) 404 - Страница не найдена
2) 403 - Соединение с сервером закрыт
3) <span>302 - Ресурс временно перемещен
4) </span>305 - Следует использовать прокси<span>
5) </span>400 - Неверный запрос<span> </span>
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
Program chik2;
var a,i,h,l:integer;
begin
l:=0;
h:=0;
for i:=1 to 10 do
begin
read(a);
if(a>0)then l:=l+1;
if(a<0)then h:=h+1;
end;
write(l,' ',h);
end.
l-кол-во полож
h-кол-во отрицательных
program n_3;
var a: array [1..30] of integer; n, m, l, i:integer; s: double;
begin
m:=0; l:=0;
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
if a[i]>=8 then m:=m+1;
if a[i]>l then begin l:=a[i]; n:=i; end;
end;
writeln ('Зачет сдали ', m, ' учеников');
writeln ('Среднее количество решенных задач равно: ', s/30);
writeln ('Больше всех решил задач ученик под номером ', n);
end.