................................................................
1).В 8 литровый кувшин набрать воду-перелить в 3 литровый кувшин ( в 8 литровом остается 5 литров )
2).перелить из 8 литрового в 3 литровый ( в 8 литровом останется 2 литра )
3). Эти 2 литра перелить в 3 литровый кувшин
4). Набрать полностью 8 литровый кувшин и долить до конца из 8 литрового в 3 литровый и остаётся в 8 литровом 7 литров воды
Var a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;<span>end.</span>