9 lines
124 B
ObjectPascal
9 lines
124 B
ObjectPascal
// Ýòî äîëæíî ðàáîòàòü
|
|
|
|
var work: array ['à'..'ÿ'] of integer;
|
|
|
|
begin
|
|
Inc(work['à']);
|
|
writeln(work['à']);
|
|
readln;
|
|
end. |