Как изменить внешний вид значка объекта рабочего стола? опишите данный алгоритм. 30 .

лик пкм по файлу клик свойства и там в каком то разделе есть функция сменить значок

(см. объяснение)

Объяснение:

program task;

var i: integer;

const N=5;

procedure writeOut(i: integer);

begin

 if(i<N) then write(', ')

 else writeln('.');

end;

begin

 if(N<1) then begin writeln('N>0 и целое!'); exit; end;

 writeln('ЦИКЛ FOR:');

 for i:= 1 to N

   do begin

        write(i); writeOut(i);

      end;

 writeln;

 writeln('ЦИКЛ WHILE:');

 i:= 1;

 while(i<N+1)

   do begin

        write(i); writeOut(i);

        i:= i+1;

      end;

 writeln;

 writeln('ЦИКЛ REPEAT:');

 i:= 1;

 repeat

   write(i); writeOut(i);

   i:= i+1;

 until i=N+1;

end.

Var
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
    S:=S+1/N;
WriteLn('S = ',S);

//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);

//Третий
S:=0;
N:=0;
While N<>50 do
   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('S = ',S);

End.

Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,'   ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.

Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1;
    End;
WriteLn('Кол-во отрицательных: ',k);
End.