Вычислите значение переменной S:
x:=2;y:=3;if x A)1;
B)2
C)3;
D)4

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

у семи нянек дитя без глаза.

28 символов * 2 = 56 байт

56 * 8 = 448 бит.

ответ. 448 бит.

как правильно пишется триугольник или треугольник?

  треугольник

var

x: real;

begin

readln(x);

writeln(round(x));

end.