12 lines
138 B
ObjectPascal
12 lines
138 B
ObjectPascal
var
|
|
read: integer;
|
|
|
|
procedure test;
|
|
begin
|
|
assign(input, 'read1.txt');
|
|
readln(read);
|
|
assert(read = 45);
|
|
end;
|
|
begin
|
|
//TODO
|
|
end. |