program mas3(dat, res);


const
nmax=20;
type
massiv=array[1..nmax] of real;


var
na,nb,nc:byte;
a,b,c:massiv;
sa,sb,sc:real;
name:char;
dat,res:text;


procedure input(var n:byte; var mas:massiv);
var
i:byte;
begin
readln(dat,n);
for i:=1 to n do
readln(dat,mas[i]);
end;
procedure output(n:byte; var mas:massiv; name_mas:char);
var
i:byte;
begin
writeln(res,' Массив ',name_mas,' из ',n:3,' элементов:'); for i:=1 to n do
write(res,mas[i]:3:1,' '); {обр3,5,7}
writeln(res);
end;



end.

ошибка 113 выползает на строке с заголовком процедуры "Error in statement" И я по нятия не имею чё делать(( помогите

Тек ё, типы данных-то надо бы указать в заголовке. А то откуда компилятор узнает, чё такое dat и rez?
Добавлено спустя 2 минуты, 30 секунд
так... а что такое вообще
?
Что ты этим сказать хотел?

непонял-поконкретней что и где указать...

В заголовке эта надпись ваще вроде ни на что не влияет-без процедур всё работет в таком виде.

Это я тебя не понял, смотри исправленный пост.

слушай а что нужно сделать чтобы вообще моя прога заработала? и ошибка не вываливалась...

Так я пока не могу понять, что она делает. По моим представлениям заголовок зкщпкфь вообще не должен содержать скобок, тем более имён переменных в них. Или тебе надо значения переменных вводить из командной строки? Ты не привёл текст основной программы, так что хотя бы опиши, чего хочешь.

опиши типы данных dat и rez в самом начале программы:
var
dat,rez:{тип переменных};

Silent forest

Вроде они там описаны.

Это заголовок программы...
И никакие описания типов, да еще и кривые там неприемлемы.

Компилируется, если дописать begin перед последним end. (TP 7.1). Т.к. основной программы нет, ничего не делает.

vor
Кстати да, вот основной begin тут и забыт

Это ты со старым Паскалем работаешь? С старом паскале было так program mas3(input, output); . Означало, что ты работаешь с двумя старндартными файлами под названиями input (файл для чтения данных с клавы), output(для вывода на экран).

Совет убери заголовок, переименуй процедуры . МОжет из-за этого косяк, у меня Паскаля под рукой нет. Постарайся использовать inp или outp. Или что-то в этом роде.

Закрываю, поскольку автор давно не появлялся, а для вопросов по TP/BP тема уже есть.