program gyokketto; uses crt,highpr; Var X0,X1,Ketto,c,d,e,p:hpr; muvelet:hpr_arit; Function f (var X0:hpr):real; begin Ketto.hossz:=1; Ketto.alap:=10; Ketto.szam[1]:='2'; Ketto.elojel:='+'; muvelet.oszt(Ketto,X0,c); muvelet.plusz(X0,c,d); muvelet.oszt(d,Ketto,e); X1:=e; end; Function hatv (var y:real):real; var i:integer; begin p.hossz:=3; p.alap:=10; p.szam[1]:='1/100'; p.elojel:='+'; for i:=1 to 11 do muvelet.szor(p,1/10,p); end; BEGIN X1=f(X0); while (muvelet.szor(X1,X1)-2)