12 lines
187 B
ObjectPascal
12 lines
187 B
ObjectPascal
var
|
|
a, b: string;
|
|
|
|
begin
|
|
a := '1';
|
|
b := '1';
|
|
WriteAllText('input.txt','45');
|
|
assign(input,'input.txt');
|
|
readln(a[1], b[1]);
|
|
assert(a[1] = '4');
|
|
assert(b[1] = '5');
|
|
end. |