Вычислить сумму S=2x+3x+4x+…+Nx, используя операторы While и Repeat

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

таблица умножения

программа телепередач

телефонный справочник

прогноз погоды

меню в столовой

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.