program timer (input,output);
var
   t1, t2 : word;
   i : integer;
   r : real;
   s1, s2 : lstring(40);

function tics : word; Extern;

procedure time (var s:string); Extern;


begin
{   t1 := tics;}
   time(s1);
   writeln('s1= ',s1);
    for i := 1 to maxint DO
      r := sqr(i) * sqrt(i);
  { t2 := tics;
   writeln('t1= ',t1,'  t2= ',t2);}
   time(s2);
   writeln('s2= ',s2);
end.