Напишите блок схему поиска вершин графа очень нужно

var

 FileName, Ext: string;

 i, p: Integer;

begin

 Write ('Введите имя файла: ');

 Read (FileName);

 p := 0;

 for i := Length (FileName) downto 1 do begin

   if FileName [i] = '.' then begin

     p := i;

     Break;

   end;

 end;

 if p = 0 then begin

   WriteLn ('Не найдено расширение имени файла!');

   Exit;

 end;

 Ext := LowerCase (Copy (FileName, p + 1, Length (FileName) - p));

 if (Ext = 'htm') or (Ext = 'html') or (Ext = 'php') then

   WriteLn ('Это веб - страница!')

 else if (Ext = 'doc') or (Ext = 'docx') then

   WriteLn ('Это документ Microsoft Word!')

 else if (Ext = 'xls') or (Ext = 'xlsx') then

   WriteLn ('Это документ Microsoft Excel!')

 else if (Ext = 'zip') or (Ext = 'rar') or (Ext = '7z') then

   WriteLn ('Это архив!')

 else if Ext = 'exe' then

   WriteLn ('Это программа!')

 else

   WriteLn ('Что - то другое.');

end.

правильный с синтаксической точки зрения код:

ConsoleColor text = ConsoleColor.Red;  

string myProgrammName = "Крутая прога от меня!";

string s = "Чтобы она заработала, нужно дорого заплатить.";

int cost1 = 15000;

char currency = '$';  

Console.Title = myProgrammName;  

Console.WriteLine(s);

Console.ForegroundColor = text;

Console.Write(cost1);

Console.ResetColor();

Console.WriteLine(currency);

double cost = 15.5;

Console.WriteLine("...");

Console.ReadLine();

Console.Write("Ну или хотя бы ");

text = ConsoleColor.Green;

Console.ForegroundColor = text;

Console.WriteLine(cost);

объяснение ошибок по строкам:

1) неверное объявление переменной text

2) объявлена переменная целого типа, а значение присвоено как переменной строкового типа

3) не выбрано имя переменной и пропущена точка с запятой

4) объявлена переменная целого типа, а значение присвоено как переменной строкового типа

5) не определен тип переменной

6) будет выводить строку myProgrammName вместо значения переменной myProgrammName

7) будет выводить строку string вместо значения переменной.

8) нет ошибки

9) неверное имя переменной

10) нет ошибки

11) нет ошибки

12) неверный тип переменной

13)нет ошибки

14)нет ошибки

15)нет ошибки

16) пропущено ConsoleColor

17) нет ошибки

18) нет ошибки