var
a:array[1..99999]of boolean;
i,k,n,kol,kol2:integer;
begin
writeln('ВВедите кол-во чисел ');readln(n);
for i:=1 to n do
a[i]:=true;
kol:=0;
kol2:=0;
k:=2;
while k*k<=n do begin
if a[k] then begin
i:=k*k;
while i <=n do begin
a[i]:= false;
i:=i+k;
kol:=kol+1;
end;
end;
k:=k+1;
end;
for i:=1 to n do
if a[i] then begin
kol2:=kol2+1;
write(i,' ');
end;
writeln();
writeln('Кол-во шагов = ',kol);
writeln('Кол-во чисел = ',kol2);
end.

Программа:
Pascal:

var

 f, years, weeks, days: integer;

begin

 readln(f);

 years := f div 365;

 weeks := (f - years * 365) div 7;

 days := f - years * 365 - weeks * 7;

 writeln(f, ' дней - это ', years, ' лет, ', weeks, ' недель, ', days, ' дней.');

end.

Объяснение:

В начале регистрируются переменные f, years, weeks, days. Далее - вводится число f (дней). Число полных лет - результат целочисленного деления f на 365. Число полных недель - результат целочисленного деления оставшегося количества дней на 7. Число дней - оставшиеся количество дней после определения years и weeks. В конце - вывод этих значений.

Результат:

1000

1000 дней - это 2 лет, 38 недель, 4 дней.

Відповідь:

program Pr1;

var

 a: array[1..10] of integer;

 i,k,n,s: integer;

 sr: real;

begin

 Randomize;

 k := 0;

 s := 0;

 for i := 1 to 10 do

 begin{формирование массива}

   a[i] := random(41) - 20;

   write(a[i]:5);

   if a[i] > 0 then

   begin

     S := S + A[i];

     n := n + 1;

   end;  

   if abs(a[i]) mod 10 = 7 then

     k := k + 1;

 end;

 writeln;

 WRITELN('Количество элементов на 8: ', k);  

 if n<>0 then

   begin

     SR := S / N;

     WRITELN('Среднее: ', SR);

   end

 else

   writeln('Нет отрицательных чисел.');

end.

Пояснення:

Здається так, давно не писав нічого на цій мові