program trivial;
 (* trivial first example *)
 var a,b : number; 
begin
      b := a*a
end. (* trivial *)