Ввести с клавиатуры имя файла. если расширение имени файла – htm, html или php, выдать сообщение «это веб - страница! », если расширение – doc или docx, выдать сообщение «это документ microsoft word! », если расширение – xls или xlsx , выдать сообщение «это документ microsoft excel! », если расширение – zip, rar или 7z, вывести «это архив! », если расширение – exe, выдать сообщение «это программа! », иначе выдать сообщение «что - то другое.» пример: введите имя файла: c: \doc\сайт\index. html это веб - страница ! пример: введите имя файла: c: \документы\приказ. pdf что - то другое.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

где-то в начале ii тысячелетия до нашей эры предки финикийцев изобрели алфавит.

само слово "алфавит" восходит к названиям первых финикийских букв: альфа "алеф" (бык) и  бета "бет" (дом). финикийцы дали название каждой букве своего алфавита.

3 базовых цвета

2 бита - 4 варианта 

4*4*4=64 цвета

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.