Questo è il programma che vi avevo lasciato in sospeso ieri...

program mossa del cavallo;
uses crt;
const passo=0.01;
var r,go,gn:real;
function g(r:real):real;
begin
g:=1-sqrt(1/(1+2/(r+1/r)));
end;
begin
clrscr;
textcolor(yellow);
r:=0; gn:=0;
repeat
go:=gn;
r:=r+passo; 
gn:=g(r);
until gn<=go; 
writeln('Il guadagno che si ottiene facendo la mossa del cavallo è: ',go);
readln;
end.