1. Запишите, какие значки и индикаторы есть на Панели задач? 2. Запишите, какие ярлыки на Рабочем столе являются пользовательскими, а какие системными?
3. Опишите, что нужно сделать, если папки и файлы удаляются в Корзину, но она пуста?
4. Запишите свойства файлов Стихотворение и Ёлка. (пункт 10)
5. Запишите, какие возможности форматирования текста есть в программе Блокнот.

Мне нужно чтобы мой акк забанили

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.