11 lines
124 B
Plaintext
11 lines
124 B
Plaintext
[=PascalABC]
|
|
[0]
|
|
uses PT4Exam;
|
|
[1-999]
|
|
|
|
begin
|
|
Task('%{task}');
|
|
var filename := ReadString; // èìÿ èñõîäíîãî ôàéëà
|
|
|
|
end.
|