Ну так во первых обяъвление процедуры должно быть
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.
Держи ! Пользуйся на здоровье и будь внимательнее.
1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)
Var
C,D:integer;
Begin
D:=0;
For C:= 2 to A do
if A mod C = 0 then D:=D+1;
if D=1 then Write(A,' ')
End;
Var A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
Prost(B);
End.