А: =17; b: =(a div 10)*10; a: =(b*2)+ a div 100; если  a> b  то  c: =a-bиначе с: =b-aпеременная с примет значения: а) 50, б) 10, в) 45, г)85. ​

//pascalabc.net 3.1 сборка 1200 const       n = 1000; begin       var primes : = new list< integer> ();             for var i : = 2 to n do       begin               var f : = true;               foreach var prime in primes do                       if i mod prime = 0 then begin                               f : = false;                               break;                       end;                             if f then primes.add(i);       end;             foreach var prime in primes do               write(prime, ' ');       writeln;       writeln('время вычисления: ', milliseconds / 1000); end.

Var       a, s, t: real;       n, i: integer; begin       readln(a, n);       t : = 1;       for i : = 1 to n do       begin               s : = s + 1 / t;               t : = t * a * a;       end;       writeln(s); end. аналог не руби для проверки блин a=2.0 n=4 s=0.0 for i in 1..n       s+=1/a**(2*i-2)       p [a**(2*i-2), (2*i-2)] end p s