Исполнитель чертёжник пе­ре­ме­ща­ет­ся на ко­ор­ди­нат­ной плоскости, остав­ляя след в виде линии. чертёжник может вы­пол­нять ко­ман­ду сместиться на (a, b) (где a, b – целые числа), пе­ре­ме­ща­ю­щую чертёжника из точки с ко­ор­ди­на­та­ми (x, y), в точку с ко­ор­ди­на­та­ми (x+a, y+b). если числа a, b положительные, зна­че­ние со­от­вет­ству­ю­щей ко­ор­ди­на­ты увеличивается, если от­ри­ца­тель­ные — уменьшается. например, если чертёжник на­хо­дит­ся в точке с ко­ор­ди­на­та­ми (1, 1), то ко­ман­да сместиться на (–2, 4) пе­ре­ме­стит его в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что по­сле­до­ва­тель­ность ко­манд команда1 команда2 команда3 по­вто­рит­ся k раз. чертёжнику был дан для ис­пол­не­ния сле­ду­ю­щий алгоритм: сместиться на (2, 6) повтори 2 раз сместиться на (2, 1) сме­стить­ся на (–5, 4) сме­стить­ся на (1,–4) конец какую ко­ман­ду надо вы­пол­нить чертёжнику, чтобы вер­нуть­ся в ис­ход­ную точку, из ко­то­рой он начал движение? 1) сместиться на (4, –2) 2) сместиться на (–4, 2) 3) сместиться на (2, –8) 4) сместиться на (–2, 8)

2) World - мир.

Wide - широкий, большой, обширный...

Web - сеть, паутина.

3)Быстрый ответ

Организация WWW представляет собой множество информационных ресурсов, организованных в одно целое. Она объединяет многочисленные ресурсы по всему миру, а так же организована так, что информационные ресурсы снабжены гиперссылками.

4) Гиперссылки обеспечивают быстрый и удобный переход пользователя с одной странице сайта на другую, а так же на другой сайт.  содержание в книгах, например. Алфавитный порядок в словарях и справочниках)

Объяснение:

Ну так во первых  обяъвление процедуры должно быть

procedure InputMas1(var mas1:Tmas );

 во вторых ты забыл  end;  т.е 

begin
for i:=1 to 10 do
      begin
           mas1[i]:=random(n);
           Write(mas1[i]:3);
     end;

 end; {забытый end}

в третьих ты  не написал основную прграмму т.е забыл begin и не вызвал процедуру 

InputMas1

begin

     clrscr;
     InputMas1(mas1);

     readkey;
end. 

 Итого прога должна выглядеть примерно так

program Massiv
Uses Crt;
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;

procedure InputMas1(var mas1:TMas);
var i:integer;

begin
     for i:=1 to 10 do
        begin
        mas1[i]:=random(n);
        Write(mas1[i]:3);
       end;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.

Держи ! Пользуйся на здоровье и будь внимательнее.