В какой строке ошибка
2 var
3 a,b,c,x: ineger;
4
5 procedure test (x,c:integer; var t:integer);
6 begin
7 t:=x+c;
8 end;
9
10 begin
11 readln (x,c) ;
12 a:=x+test(x,c,x) ;
13 end.

Aidanok1    1   22.12.2020 20:21    10