Какие языки в настоящее время являются самыми распространенными в мире?

English, french and chinese

Китайский, испанский,,хинди, арабский, португальский, , японский, ,   корейский, персидский ,французский ,тамильский.урду ,    ит альский.   маласийский,   польский,   нидерланский

Pascalabc.netvar   x,y,z: integer;   m: single; begin   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m) end. тестовое решение: введите x,y,z: 3 6 -2 -0.3 borland pascal 7.01 uses crt; function max(m,n: integer): integer; begin if m> n then max: =m else max: =n end; function min(m,n: integer): integer; begin if m< n then min: =m else min: =n end; var   x,y,z: integer;   m: real; begin   clrscr;   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m);   readkey end. тестовое решение: введите x,y,z: 3 6 -2 -3.0000000000e-01

Program asd; uses crt; var a,b,c,max: integer; r: real; begin   write('введите число  a: ');   readln(a);   write('введите число  b: ');   readln(b);   write('введите число  c: ');   readln(c);   if   a> =b then max: =a   else    max: =b;       if c> max then max: =c;   r: =a+b+c;   if (a> b) and (b> c) and (c> 0) then   writeln('a= ',a*2,' b= ',b*2,' c= ',c*2);   if (a< 0) and   (b< 0) and (c< 0) and (a< > b) and (b< > c) and (c< > a)  then   begin    a: =max;       b: =max;     c: =max;   writeln('a= ',a,' b= ',b,' c= ',c);       end    else      writeln('symma: ',r); end.