ВОПРОСЫ И ЗАДАНИЯ 1. Расскажите о возможностях MS Word, 2. Объясните процесс форматирования документов. 3. Какие типы форматирования представлены в MS Word? 4. Объясните, как сохранять документы. 5. Продолжите предложение: а) Форматирование документов включает: б) Размер шрифта в текстовых редакторах в) Для форматирования абзаца д) Для того чтобы сохранить документ в ! пишити кратко

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

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.

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

2)

Program Masty 

Uses Crt;
var n:integer;
begin
clrscr;
write('введи номер масти 1-4 :');
readln(n);

case n of
1:writeln ('Пики');
2:writeln ('Трефы');
3:writeln ('Бубны');
4:writeln ('Червы');
else writeln('Неправильный номер масти');
end;
readkey;
end. 

 1)

Program Cifry;

 Uses Crt;
var n:integer;

       s:string[2];
begin
clrscr;
 write('введи двузначное целое число :');
  readln(n);

  str(abs(n),s);

if (s[1]=s[2]) then writeln('Цифры числа одинаковые')

  else  writeln('Цифры числа не одинаковые'); 

  readkey; 

end.