Трэкбол (но сейчас их называют тэчпэдом)
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
while (sum < 324) do //пока сумма меньше 324
begin
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
end;
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
101012<span> + 111</span>2<span> = 11100</span><span>2
</span>1010102<span> + 1101</span>2<span> = 110111</span><span>2
</span>10102<span> + 1010</span>2<span> = 10100</span><span>2
</span>10102<span> × 11</span>2<span> = 11110</span><span>2
</span>1112<span> × 101</span>2<span> = 100011</span><span>2
</span>10102<span> × 111</span>2<span> = 1000110</span><span>2</span>