F: =2 a: =3 while a< 7 do begin f: =f * a div 3; a: =a + 1 end

makka23    2   30.04.2019 06:23    1