program prova ;
begin
{prova}
while pluto - 10 < pippo do
pippo := pippo + pluto ;
if pippo - pluto > pluto then
pippo := plutto - pippo
end .