Ответ: в любой сфере информационной деятельности
Program gg;var a,b,c:real;
begin a:=(1+1/4)/(1+1/2); b:=(6.8*0.04*1.65)/(3.3*5.1*0.16); c:=((3+1/2+1+4/5)*3/5-1.18)/((8+1/8)*(2/13)+(1+1/3)/(1+7/9));end.
1) for R:=10 downto 1 do
writeln(R);
2) Делается аналогично, только используется цикл to и в теле цикла будет 2 оператора