15 lines
197 B
ObjectPascal
15 lines
197 B
ObjectPascal
var arr: array[1..10] of integer;
|
|
x: integer;
|
|
|
|
procedure p(var x:integer);
|
|
begin
|
|
x:=10;
|
|
end;
|
|
|
|
begin
|
|
//writeln(arr[1]);
|
|
//p(arr[1]);
|
|
readln(arr[1]);
|
|
//writeln(arr[1]);
|
|
//readln;
|
|
end. |