segment  miscelny;


%skip 2;
function itos(i:integer):string(12);  external;
function itos;
var t:string(12);
begin
writestr(t,i:1);
itos := t;
end;
%skip 2;
function stoi(const s:string):integer;  external;
function stoi;
var t:integer;
begin
readstr(s,t);
stoi := t;
end;
 .
